Anonymous user
Primality by trial division: Difference between revisions
→{{header|IS-BASIC}}
No edit summary |
|||
Line 426:
==={{header|IS-BASIC}}===
<lang IS-BASIC>100 PROGRAM "Prime.bas"
110 FOR X=1 TO
120 IF PRIME(X) THEN PRINT X;
130 NEXT
Line 436:
190 ELSE
200 LET PRIME=-1
210 FOR I=3 TO CEIL(SQR(N)) STEP 2
220 IF MOD(N,I)=0 THEN LET PRIME=0:EXIT FOR
230 NEXT
| |||