lazy-lists: temporarily disable prime number example
Need to implement lapply to get this to work againdarcs
parent
d4091e03c6
commit
0929fafe10
|
@ -43,7 +43,7 @@ IN: lazy-examples
|
||||||
#! Given a lazy list of numbers, filter multiples of n
|
#! Given a lazy list of numbers, filter multiples of n
|
||||||
swap [ divisible-by? not ] curry lsubset ;
|
swap [ divisible-by? not ] curry lsubset ;
|
||||||
|
|
||||||
: primes ( -- list )
|
! : primes ( -- list )
|
||||||
2 lfrom [ filter-multiples ] lapply ;
|
! 2 lfrom [ filter-multiples ] lapply ;
|
||||||
|
|
||||||
: first-ten-primes 10 primes ltake list>array ;
|
! : first-ten-primes 10 primes ltake list>array ;
|
Loading…
Reference in New Issue