13 lines
303 B
Text
13 lines
303 B
Text
FUNCTION wilsonprime(n)
|
|
LET fct = 1
|
|
FOR i = 2 TO n - 1
|
|
LET fct = MOD((fct * i), n)
|
|
NEXT i
|
|
IF fct = n - 1 THEN LET wilsonprime = 1 ELSE LET wilsonprime = 0
|
|
END FUNCTION
|
|
|
|
PRINT "Primes below 100"; CHR$(10)
|
|
FOR i = 2 TO 100
|
|
IF wilsonprime(i) = 1 THEN PRINT i; " ";
|
|
NEXT i
|
|
END
|