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

maths.primes: finish renaming fast-gcd to simple-gcd.

locals-and-roots
Doug Coleman 2016-03-19 17:21:24 -07:00
parent 4c06034ae0
commit 35d84c6e64
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/primes/primes.factor
View File

@ -76,7 +76,7 @@ PRIVATE>
: nprimes ( n -- seq ) : nprimes ( n -- seq )
2 swap [ [ next-prime ] keep ] replicate nip ; 2 swap [ [ next-prime ] keep ] replicate nip ;
: coprime? ( a b -- ? ) fast-gcd 1 = ; foldable : coprime? ( a b -- ? ) simple-gcd 1 = ; foldable
: random-prime ( numbits -- p ) : random-prime ( numbits -- p )
[ ] [ 2^ ] [ random-bits* next-prime ] tri [ ] [ 2^ ] [ random-bits* next-prime ] tri

2
extra/math/primes/solovay-strassen/solovay-strassen.factor
View File

@ -12,7 +12,7 @@ IN: math.primes.solovay-strassen
numtrials iota [ numtrials iota [
drop drop
n 1 - [1,b) random :> a n 1 - [1,b) random :> a
a n fast-gcd 1 > [ t ] [ a n simple-gcd 1 > [ t ] [
a n jacobi n mod' a n jacobi n mod'
a n 1 - 2 /i n ^mod = not a n 1 - 2 /i n ^mod = not
] if ] if