(iteration#) ( i xi a b -- # )

Vocabulary

project-euler.255.private

Inputs

i	an object
xi	an object
a	an object
b	an object

Outputs

#

an object

Definition

USING: kernel math ;

IN: project-euler.255.private

:: (iteration#) ( i xi a b -- # )
    a xi xk+1 dup xi =
    [ drop i b a - 1 + * ] [ i 1 + swap a b iteration# ] if ;