euler038 ( -- answer )

Vocabulary

project-euler.038

Inputs

None

Outputs

answer

an object

Definition

USING: project-euler.038.private project-euler.common ranges
sequences ;

IN: project-euler.038

: euler038 ( -- answer )
    9123 9876 [a..b] [ concat-product ] map
    [ pandigital? ] filter maximum ;