collect-permutations ( seq -- seq )

Vocabulary

project-euler.049.private

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: kernel project-euler.common sequences sets ;

IN: project-euler.049.private

: collect-permutations ( seq -- seq )
    [ V{ } clone ] [ dup ] bi* [
        dupd [ permutations? ] curry filter [ diff ] keep
        pick push
    ] each drop ;