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