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

Do not repeat sanity tests at each iteration

db4
Samuel Tardieu 2009-08-30 21:14:26 +02:00
parent ed09dfe3ae
commit d23286a9ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,7 +69,7 @@ ERROR: no-relative-prime n ;
: (find-relative-prime) ( n guess -- p ) : (find-relative-prime) ( n guess -- p )
over 1 <= [ over no-relative-prime ] when over 1 <= [ over no-relative-prime ] when
dup 1 <= [ drop 3 ] when dup 1 <= [ drop 3 ] when
2dup gcd nip 1 > [ 2 + (find-relative-prime) ] [ nip ] if ; [ 2dup coprime? ] [ 2 + ] until nip ;
PRIVATE> PRIVATE>