compute ( vec ratio -- )

Vocabulary

project-euler.175.private

Inputs

vec	an object
ratio	an object

Outputs

None

Definition

USING: combinators kernel math ;

IN: project-euler.175.private

: compute ( vec ratio -- )
    {
        { [ dup integer? ] [ 1 - 0 add-bits ] }
        { [ dup 1 < ] [ 1 over - / dupd compute 1 1 add-bits ] }
        [ [ 1 mod compute ] 2keep >integer 0 add-bits ]
    } cond ;