1 import "JavaBuiltin" as Java
\r
12 isPrime p = isPrimeAux (2 :: Integer) p
\r
14 isPrimeAux d p = if d == p then True
\r
15 else if p % d == 0 then False
\r
16 else isPrimeAux (d+1) p
\r
18 nextPrime p = if isPrime p
\r
20 else nextPrime (p+(1 :: Integer))
\r