families ( stra -- seq )

Vocabulary

project-euler.051.private

Inputs

stra

an object

Outputs

seq

an object

Definition

USING: assocs kernel sequences ;

IN: project-euler.051.private

: families ( stra -- seq )
    dup digits-positions values [
        all-positions-combinations
        [ replace-positions-with-* ] with map
    ] with map concat ;