(euler073) ( counter limit lo hi -- counter' )

Vocabulary

project-euler.073.private

Inputs

counter	an object
limit	an object
lo	an object
hi	an object

Outputs

counter'

an object

Definition

USING: kernel math project-euler.common ;

IN: project-euler.073.private

:: (euler073) ( counter limit lo hi -- counter' )
    lo hi mediant :> m m denominator limit <=
    [ counter 1 + limit lo m (euler073) limit m hi (euler073) ]
    [ counter ] if ;