source-033 ( -- seq )


Vocabulary
project-euler.033.private

Inputs
None

Outputs
seqan object


Definition
USING: kernel math ranges sequences ;

IN: project-euler.033.private

: source-033 ( -- seq )
10 99 [a..b] dup cartesian-product concat
[ first2 < ] filter ;