euler044 ( -- answer )

Vocabulary

project-euler.044

Inputs

None

Outputs

answer

an object

Definition

USING: kernel layouts project-euler.044.private ranges sequences
;

IN: project-euler.044

: euler044 ( -- answer )
    most-positive-fixnum 2500 [1..b]
    [ dup [1..b] [ euler044-step ] with each ] each ;