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