Ultra useful primes: Difference between revisions
Content added Content deleted
(Add Factor) |
(→{{header|Factor}}: simplify) |
||
Line 26: | Line 26: | ||
: useful ( -- list ) |
: useful ( -- list ) |
||
1 lfrom |
1 lfrom |
||
[ 1 lfrom [ - prime? ] with lfilter car ] lmap-lazy ; |
[ 2^ 2^ 1 lfrom [ - prime? ] with lfilter car ] lmap-lazy ; |
||
10 useful ltake [ pprint bl ] leach nl</lang> |
10 useful ltake [ pprint bl ] leach nl</lang> |