Miller–Rabin primality test: Difference between revisions
m
→{{header|Commodore BASIC}}
Line 1,000:
=={{header|Commodore BASIC}}==
<lang basic>100 PRINT CHR$(147)CHR$(18)"**** MILLER-RABIN PRIMALITY TEST ****": PRINT
110 OPEN 1, 0
120 PRINT "ENTER N:";: INPUT#1, N$: PRINT
Line 1,027:
350 : IF X = N - 1 THEN 380
360 : NEXT J
370 : P = 0: GOTO 390
380 NEXT I
390 P = P * (1 - 1 / (4 * K))
| |||