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

remove random-bits

db4
Doug Coleman 2008-03-19 16:19:00 -05:00
parent b3527a17df
commit 5296c907d9
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,8 +19,6 @@ SYMBOL: trials
: next-odd ( m -- n ) : next-odd ( m -- n )
dup even? [ 1+ ] [ 2 + ] if ; dup even? [ 1+ ] [ 2 + ] if ;
: random-bits ( m -- n ) 2^ random ; foldable
TUPLE: positive-even-expected n ; TUPLE: positive-even-expected n ;
: (factor-2s) ( r s -- r s ) : (factor-2s) ( r s -- r s )