Primality by trial division: Difference between revisions
Content added Content deleted
mNo edit summary |
(Primality by trial division in True BASIC) |
||
Line 790: | Line 790: | ||
240 END IF |
240 END IF |
||
250 END DEF</lang> |
250 END DEF</lang> |
||
==={{header|True BASIC}}=== |
|||
{{trans|BASIC}} |
|||
<lang qbasic>FUNCTION isPrime (n) |
|||
IF n = 2 THEN |
|||
LET isPrime = 1 |
|||
ELSEIF n <= 1 OR REMAINDER(n, 2) = 0 THEN |
|||
LET isPrime = 0 |
|||
ELSE |
|||
LET isPrime = 1 |
|||
FOR i = 3 TO INT(SQR(n)) STEP 2 |
|||
IF REMAINDER(n, i) = 0 THEN |
|||
LET isPrime = 0 |
|||
EXIT FUNCTION |
|||
END IF |
|||
NEXT i |
|||
END IF |
|||
END FUNCTION |
|||
FOR n = 1 TO 50 |
|||
IF isPrime(n) = 1 THEN PRINT n; |
|||
NEXT n |
|||
END</lang> |
|||
==={{header|ZX Spectrum Basic}}=== |
==={{header|ZX Spectrum Basic}}=== |