fix word name
parent
669104c2e6
commit
a6d0c33a94
|
@ -77,7 +77,7 @@ TUPLE: miller-rabin-bounds ;
|
|||
>odd (find-relative-prime) ;
|
||||
|
||||
: find-relative-prime ( n -- p )
|
||||
dup random (find-relative-prime*) ;
|
||||
dup random find-relative-prime* ;
|
||||
|
||||
: unique-primes ( numbits n -- seq )
|
||||
#! generate two primes
|
||||
|
|
Loading…
Reference in New Issue