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