tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Relations1.scl

   1 import "StandardLibrary"
   2
   3 Concat ?x ?y ?z :-
   4     @bbf 1
   5     ?z = ?x + ?y
   6
   7     @bfb 0.5
   8     startsWith ?z ?x
   9     ?y = drop (length ?x) ?z
  10
  11     @fbb 0.5
  12     endsWith ?z ?y
  13     ?x = take (length ?z - length ?y) ?z
  14
  15 main = select ?y where
  16     Concat "Hello " ?y "Hello world!"
  17 --
  18 [world!]