Primality by trial division: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
(Applesoft BASIC) |
||
Line 801: | Line 801: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|Applesoft BASIC}}=== |
|||
<syntaxhighlight lang="basic"> 100 DEF FN MOD(NUM) = NUM - INT (NUM / DIV) * DIV: REM NUM MOD DIV |
|||
110 FOR I = 1 TO 99 |
|||
120 V = I: GOSUB 200"ISPRIME |
|||
130 IF ISPRIME THEN PRINT " "I; |
|||
140 NEXT I |
|||
150 END |
|||
200 ISPRIME = FALSE: IF V < 2 THEN RETURN |
|||
210 DIV = 2:ISPRIME = FN MOD(V): IF NOT ISPRIME THEN ISPRIME = V = 2: RETURN |
|||
220 LIMIT = SQR (V): IF LIMIT > = 3 THEN FOR DIV = 3 TO LIMIT STEP 2:ISPRIME = FN MOD(V): IF ISPRIME THEN NEXT DIV |
|||
230 RETURN</syntaxhighlight> |
|||
==={{header|BASIC256}}=== |
==={{header|BASIC256}}=== |
||
{{trans|FreeBASIC}} |
{{trans|FreeBASIC}} |