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

remove blank line

db4
Doug Coleman 2008-01-12 20:43:58 -10:00
parent 11dcb41546
commit 37544fe24e
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -81,4 +81,3 @@ TUPLE: miller-rabin-bounds ;
#! generate two primes #! generate two primes
over 5 < [ "not enough primes below 5 bits" throw ] when over 5 < [ "not enough primes below 5 bits" throw ] when
[ [ drop random-prime ] with map ] [ all-unique? ] generate ; [ [ drop random-prime ] with map ] [ all-unique? ] generate ;