28 lines
568 B
Plaintext
28 lines
568 B
Plaintext
window 1, @"Primality By Trial Division", (0,0,480,270)
|
|
|
|
local fn isPrime( n as long ) as Boolean
|
|
long i
|
|
Boolean result
|
|
|
|
if n < 2 then result = NO : exit fn
|
|
if n = 2 then result = YES : exit fn
|
|
if n mod 2 == 0 then result = NO : exit fn
|
|
|
|
result = YES
|
|
for i = 3 to int( n^.5 ) step 2
|
|
if n mod i == 0 then result = NO : break
|
|
next i
|
|
end fn = result
|
|
|
|
long i, j = 0
|
|
|
|
print "Prime numbers between 0 and 1000:"
|
|
for i = 0 to 1000
|
|
if ( fn isPrime(i) != _false )
|
|
printf @"%3d\t",i : j++
|
|
if j mod 10 == 0 then print
|
|
end if
|
|
next
|
|
|
|
HandleEvents
|