steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

error message

db4
Doug Coleman 2008-04-25 00:25:37 -05:00
parent ad0139ac0c
commit b440bda681
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/math/miller-rabin/miller-rabin.factor
View File

@ -1,4 +1,4 @@
USING: combinators combinators.lib io locals kernel math eSING: combinators combinators.lib io locals kernel math
math.functions math.ranges namespaces random sequences math.functions math.ranges namespaces random sequences
hashtables sets ; hashtables sets ;
IN: math.miller-rabin IN: math.miller-rabin
@ -76,7 +76,9 @@ TUPLE: miller-rabin-bounds ;
: find-relative-prime ( n -- p ) : find-relative-prime ( n -- p )
dup random find-relative-prime* ; dup random find-relative-prime* ;
ERROR: too-few-primes ;
: unique-primes ( numbits n -- seq ) : unique-primes ( numbits n -- seq )
#! generate two primes #! generate two primes
over 5 < [ "not enough primes below 5 bits" throw ] when over 5 < [ too-few-primes ] when
[ [ drop random-prime ] with map ] [ all-unique? ] generate ; [ [ drop random-prime ] with map ] [ all-unique? ] generate ;