euler048 ( -- answer )

Vocabulary

project-euler.048

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math math.functions ranges sequences ;

IN: project-euler.048

: euler048 ( -- answer )
    1000 [1..b] [ dup ^ ] map-sum 10 10^ mod ;