source-027 ( -- seq )


Vocabulary
project-euler.027.private

Inputs
None

Outputs
seqan object


Definition
USING: kernel math math.primes sequences ;

IN: project-euler.027.private

: source-027 ( -- seq )
1000 <iota> [ prime? ] filter
[ dup [ neg ] map append ] keep cartesian-product concat
[ first2 < ] filter ;