euler063 ( -- answer )


Vocabulary
project-euler.063

Inputs
None

Outputs
answeran object


Definition
USING: kernel math math.functions ranges sequences ;

IN: project-euler.063

: euler063 ( -- answer )
9 [1..b] [ log [ 10 log dup ] dip - /i ] map-sum ;