lazy-lists: temporarily disable prime number example

Need to implement lapply to get this to work again
darcs
chris.double 2006-09-14 01:40:13 +00:00
parent d4091e03c6
commit 0929fafe10
1 changed files with 3 additions and 3 deletions

View File

@ -43,7 +43,7 @@ IN: lazy-examples
#! Given a lazy list of numbers, filter multiples of n
swap [ divisible-by? not ] curry lsubset ;
: primes ( -- list )
2 lfrom [ filter-multiples ] lapply ;
! : primes ( -- list )
! 2 lfrom [ filter-multiples ] lapply ;
: first-ten-primes 10 primes ltake list>array ;
! : first-ten-primes 10 primes ltake list>array ;