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

   1 import "JavaBuiltin" as Java\r
   2 \r
   3 importJava "org.simantics.scl.runtime.Lists" where\r
   4     sortWith :: (a -> a -> Integer) -> [a] -> [a]\r
   5 \r
   6 //@JavaStaticMethod "org.simantics.scl.runtime.Lists.sortWith"\r
   7 //sortWith :: (a -> a -> Integer) -> [a] -> [a]\r
   8 \r
   9 \r
  10 //sortWith = Java.staticMethod "org.simantics.scl.runtime.Lists.sortWith"\r
  11 \r
  12 dumbCompare :: a -> a -> Integer\r
  13 dumbCompare x y = 0\r
  14 \r
  15 dumbSort = sortWith dumbCompare \r
  16 \r
  17 main = "Foo"\r
  18 --\r
  19 Foo