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