Primality by trial division: Difference between revisions

Content added Content deleted
(→‎{{header|ZX Spectrum Basic}}: Added implementation as a sub-type of BASIC.)
(→‎{{header|ZX Spectrum Basic}}: - Do not jump out of a loop on the ZX Spectrum - Unterminated loops use stack space)
Line 124:
1010 LET p=0
1020 IF n/2=INT (n/2) THEN RETURN
1030 FORLET ip=3 TO SQR (n) STEP 21
1040 IFFOR n/i=INT3 TO SQR (n/i) THEN RETURNSTEP 2
1050 IF n/i=INT (n/i) THEN LET p=0: LET i= SQR (n)
1050 NEXT i
1060 LET p=1: RETURNNEXT i
1070 RETURN
</lang>
Output:
Retrieved from "https://rosettacode.org/wiki/Primality_by_trial_division"