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

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.
db4
Samuel Tardieu 2008-12-26 20:58:45 +01:00
parent 66b410b81f
commit 7303316a04
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/math/primes/primes.factor
View File

@ -39,8 +39,7 @@ PRIVATE>
{ [ dup 1000003 < ] [ { [ dup 1000003 < ] [
primes-under-million [ natural-search drop 1+ 0 swap ] keep <slice> primes-under-million [ natural-search drop 1+ 0 swap ] keep <slice>
] } ] }
[ primes-under-million 1000003 lprimes-from [ lprimes swap [ <= ] curry lwhile list>array ]
rot [ <= ] curry lwhile list>array append ]
} cond ; foldable } cond ; foldable
: primes-between ( low high -- seq ) : primes-between ( low high -- seq )