Miller–Rabin primality test: Difference between revisions
→{{header|Forth}}
(Forth version of Miller Rabin test) |
|||
Line 1,596:
Test on some Fermat numbers and some Mersenne numbers
<pre>
: 2^ 1 swap lshift ; ok
16 2^ 1+ dup . prime? . 65537 -1 ok
32 2^ 1+ dup . prime? . 4294967297 0 ok
Line 1,601 ⟶ 1,602:
61 2^ 1- dup . prime? . 2305843009213693951 -1 ok
</pre>
=={{header|Fortran}}==
===Direct translation===
|