euler008 ( -- answer )

Vocabulary

project-euler.008

Inputs

None

Outputs

answer

an object

Definition

USING: grouping math.order math.parser project-euler.008.private
sequences ;

IN: project-euler.008

: euler008 ( -- answer )
    source-008 5 clump
    [ string>digits product ] [ max ] map-reduce ;