euler056 ( -- answer )

Vocabulary

project-euler.056

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math.functions math.order project-euler.common
ranges sequences ;

IN: project-euler.056

: euler056 ( -- answer )
    90 100 [a..b) dup cartesian-product concat
    [ first2 ^ number>digits sum ] [ max ] map-reduce ;