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

math.primes.miller-rabin: actually, this is better.

db4
John Benediktsson 2014-12-04 19:48:32 -08:00
parent 95e45d865d
commit 1aa27963d2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/math/primes/miller-rabin/miller-rabin.factor
View File

@ -7,7 +7,8 @@ IN: math.primes.miller-rabin
<PRIVATE <PRIVATE
:: (miller-rabin) ( n trials -- ? ) :: (miller-rabin) ( n trials -- ? )
n 1 - factor-2s :> ( r s ) n 1 - :> n-1
n-1 factor-2s :> ( r s )
0 :> a! 0 :> a!
trials iota [ trials iota [
drop drop
@ -16,7 +17,7 @@ IN: math.primes.miller-rabin
f f
] [ ] [
r iota [ r iota [
2^ s * a swap n ^mod n - -1 = 2^ s * a swap n ^mod n-1 =
] any? not ] any? not
] if ] if
] any? not ; ] any? not ;