primes/primes.sml

31 lines
578 B
Standard ML

(* Standard ML version of a Prime Number Finder
haplo@mindstab.net *)
fun check i cnt max = if i > max
then
1
else
if cnt mod i = 0 then
0
else
check (i+2) cnt max
fun ploop cnt max sq sqm =
if cnt > max then
print ""
else
if cnt >= sqm then
ploop cnt max (sq+1) ((sq+1)*(sq+1))
else
(if ((check 3 cnt sq) <> 0) then
(print (Int.toString(cnt));
print("\n") )
else
print ""
; ploop (cnt+2) max sq sqm)
fun primes max =
(print "\n"; ploop 3 max 2 4);
(* autotest call will be inserted here via sed *)