euler032a ( -- answer )

Vocabulary

project-euler.032

Inputs

None

Outputs

answer

an object

Definition

USING: project-euler.032.private project-euler.common ranges
sequences sets ;

IN: project-euler.032

: euler032a ( -- answer )
    50 [1..b] 2000 [1..b] [ mmp ] cartesian-map concat
    [ pandigital? ] filter products members sum ;