loop ( c l n cf -- c l n cf )

Vocabulary

project-euler.064.private

Inputs

c	an object
l	an object
n	an object
cf	an object

Outputs

c	an object
l	an object
n	an object
cf	an object

Definition

USING: kernel math ;

IN: project-euler.064.private

:: loop ( c l n cf -- c l n cf )
    n cf step :> new-cf drop c 1 + l n new-cf l new-cf =
    [ loop ] unless ;