2009-01-07 14:57:49 -05:00
|
|
|
! Copyright (C) 2007-2009 Samuel Tardieu.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: kernel lists.lazy math math.primes ;
|
|
|
|
|
IN: math.primes.lists
|
|
|
|
|
|
|
|
|
|
: lprimes ( -- list ) 2 [ next-prime ] lfrom-by ;
|
|
|
|
|
|
|
|
|
|
: lprimes-from ( n -- list )
|
2009-08-13 20:21:44 -04:00
|
|
|
dup 3 < [ drop lprimes ] [ 1 - next-prime [ next-prime ] lfrom-by ] if ;
|
