From d23286a9efa5dab92c862e3b0967c9e589b4ce83 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Sun, 30 Aug 2009 21:14:26 +0200 Subject: [PATCH] Do not repeat sanity tests at each iteration --- basis/math/primes/primes.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/math/primes/primes.factor b/basis/math/primes/primes.factor index 27743a4a85..81193af400 100644 --- a/basis/math/primes/primes.factor +++ b/basis/math/primes/primes.factor @@ -69,7 +69,7 @@ ERROR: no-relative-prime n ; : (find-relative-prime) ( n guess -- p ) over 1 <= [ over no-relative-prime ] when dup 1 <= [ drop 3 ] when - 2dup gcd nip 1 > [ 2 + (find-relative-prime) ] [ nip ] if ; + [ 2dup coprime? ] [ 2 + ] until nip ; PRIVATE>