From 7303316a04a07cb065ee765f9857f0b9d01223a6 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Fri, 26 Dec 2008 20:58:45 +0100 Subject: [PATCH] Do not remove first primes only to prepend them afterwards This makes little sense to use "lprimes-from" to get the primes above one million to prepend the list of primes before one million afterwards. --- extra/math/primes/primes.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/extra/math/primes/primes.factor b/extra/math/primes/primes.factor index 820d5b6c4a..2db81982d8 100644 --- a/extra/math/primes/primes.factor +++ b/extra/math/primes/primes.factor @@ -39,8 +39,7 @@ PRIVATE> { [ dup 1000003 < ] [ primes-under-million [ natural-search drop 1+ 0 swap ] keep ] } - [ primes-under-million 1000003 lprimes-from - rot [ <= ] curry lwhile list>array append ] + [ lprimes swap [ <= ] curry lwhile list>array ] } cond ; foldable : primes-between ( low high -- seq )