euler057 ( -- answer )

Vocabulary

project-euler.057

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math sequences ;

IN: project-euler.057

: euler057 ( -- answer )
    0 1000 <iota>
    [ drop 2 + recip dup 1 + longer-numerator? ] count nip ;