source-033 ( -- seq )

Vocabulary

project-euler.033.private

Inputs

None

Outputs

seq

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