Ultra useful primes: Difference between revisions
Content deleted Content added
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> |
||