euler043 ( -- answer )

Vocabulary

project-euler.043

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math math.combinatorics project-euler.043.private
project-euler.common ;

IN: project-euler.043

: euler043 ( -- answer )
    1234567890 number>digits 0
    [ dup interesting? [ digits>number + ] [ drop ] if ]
    reduce-permutations ;