19 lines
363 B
Plaintext
19 lines
363 B
Plaintext
FUNCTION semiprime$ (n)
|
|
LET a = 2
|
|
LET c = 0
|
|
DO WHILE c < 3 AND n > 1
|
|
IF REMAINDER(n, a) = 0 THEN
|
|
LET n = n / a
|
|
LET c = c + 1
|
|
ELSE
|
|
LET a = a + 1
|
|
END IF
|
|
LOOP
|
|
IF c = 2 THEN LET semiprime$ = "True" ELSE LET semiprime$ = "False"
|
|
END FUNCTION
|
|
|
|
FOR i = 0 TO 64
|
|
PRINT i, semiprime$(i)
|
|
NEXT i
|
|
END
|