remove random-bits

2008-03-19 16:19:00 -05:00 · 2008-03-19 16:19:00 -05:00 · 5296c907d9
parent b3527a17df
commit 5296c907d9
1 changed files with 0 additions and 2 deletions
--- a/extra/math/miller-rabin/miller-rabin.factor
+++ b/extra/math/miller-rabin/miller-rabin.factor
@ -19,8 +19,6 @@ SYMBOL: trials
 : next-odd ( m -- n )
    dup even? [ 1+ ] [ 2 + ] if ;

-: random-bits ( m -- n ) 2^ random ; foldable
-
 TUPLE: positive-even-expected n ;

 : (factor-2s) ( r s -- r s )