Miller–Rabin primality test: Difference between revisions
Content added Content deleted
(→{{header|Commodore BASIC}}: Add implementation.) |
|||
Line 1,009: | Line 1,009: | ||
170 CLOSE 1 |
170 CLOSE 1 |
||
180 D = N - 1 |
180 D = N - 1 |
||
190 S=0 |
190 S = 0 |
||
200 D = D / 2: S = S + 1 |
200 D = D / 2: S = S + 1 |
||
210 IF 0 = (D AND 1) THEN 200 |
210 IF 0 = (D AND 1) THEN 200 |