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