db4
Doug Coleman 2008-01-12 21:49:47 -10:00
parent f8a0d7403d
commit b14a0e54e4
1 changed files with 1 additions and 1 deletions

View File

@ -20,7 +20,7 @@ SYMBOL: trials
: 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
dup even? [ -1 shift >r 1+ r> factor-2s ] when ;