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

   1 import "JavaBuiltin" as Java\r
   2 \r
   3 infixl 7  (%)\r
   4 infixl 6  (+)\r
   5 infix  4  (<)\r
   6 \r
   7 (+) = Java.iadd\r
   8 (%) = Java.irem\r
   9 (<) = Java.icmplt\r
  10 \r
  11 isPrime p = isPrimeAux (2 :: Integer) p\r
  12   where\r
  13     isPrimeAux d p = if d == p then True\r
  14                      else if p % d == 0 then False\r
  15                      else isPrimeAux (d+1) p\r
  16                    \r
  17 nextPrime p = if isPrime p \r
  18               then p\r
  19               else nextPrime (p+(1 :: Integer))                   \r
  20                      \r
  21 main = nextPrime 32\r
  22 --\r
  23 37