solve ( count length -- length )


Vocabulary
project-euler.058.private

Inputs
countan object
lengthan object


Outputs
lengthan object


Definition
USING: kernel ;

IN: project-euler.058.private

: solve ( count length -- length )
2dup ratio-below? [ nip ] [ next-layer solve ] if ;