source-027 ( -- seq )

Vocabulary

project-euler.027.private

Inputs

None

Outputs

seq

an 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 ;