solve ( count length -- length )

Vocabulary

project-euler.058.private

Inputs

count	an object
length	an object

Outputs

length

an object

Definition

USING: kernel ;

IN: project-euler.058.private

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