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

fix typo

db4
Doug Coleman 2008-01-12 21:49:47 -10:00
parent f8a0d7403d
commit b14a0e54e4
1 changed files with 1 additions and 1 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

@ -20,7 +20,7 @@ SYMBOL: trials
: random-bits ( m -- n ) 2^ random ; foldable : random-bits ( m -- n ) 2^ random ; foldable
: factor-2s ( n -- r s ) : factor-2s ( zero n -- r s )
#! factor an even number into 2 ^ s * m #! factor an even number into 2 ^ s * m
dup even? [ -1 shift >r 1+ r> factor-2s ] when ; dup even? [ -1 shift >r 1+ r> factor-2s ] when ;