(euler255) ( a b -- answer )

Vocabulary

project-euler.255.private

Inputs

a	an object
b	an object

Outputs

answer

an object

Definition

USING: kernel math math.functions ;

IN: project-euler.255.private

: (euler255) ( a b -- answer )
    [ 10^ ] bi@ 1 -
    [ [ drop x0 1 swap ] 2keep iteration# ] 2keep swap - 1 + /f
    ;