interesting-pandigitals ( -- seq )

Vocabulary

project-euler.043.private

Inputs

None

Outputs

seq

an object

Definition

USING: kernel sequences ;

IN: project-euler.043.private

: interesting-pandigitals ( -- seq )
    17 candidates
    { 13 11 7 5 3 2 } [
        candidates swap cartesian-product concat
        [ overlap? ] filter clean
    ] each [ add-missing-digit ] map ;