euler112 ( -- answer )

Vocabulary

project-euler.112

Inputs

None

Outputs

answer

an object

Definition

USING: kernel math project-euler.112.private ;

IN: project-euler.112

: euler112 ( -- answer )
    0 0 0
    [ 2dup swap 99 * = not ]
    [ [ 1 + ] 2dip pick bouncy? [ 1 + ] [ [ 1 + ] dip ] if ] do
    while 2drop ;