(digit-fib) ( n term -- term ) - Factor Documentation

(digit-fib) ( n term -- term )

Vocabulary
project-euler.025.private

Inputs

n	an object
term	an object

Outputs

term

Definition

USING: kernel math math.parser project-euler.025 sequences ;

IN: project-euler.025.private

: (digit-fib) ( n term -- term )
2dup fib number>string length >
[ 1 + (digit-fib) ] [ nip ] if ;