bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/Composition.scl

   1 infixr 9 (.)\r
   2 \r
   3 @private\r
   4 @inline\r
   5 (f . g) = \x -> f (g x)\r
   6 \r
   7 @private\r
   8 @inline\r
   9 flip (x,y) = (y,x)\r
  10 \r
  11 @private\r
  12 @inline\r
  13 flip4 = flip . flip . flip . flip\r
  14 \r
  15 main = flip4 ("a", "b")\r
  16 --\r
  17 (a,b)