x0 ( i -- x0 )

Vocabulary

project-euler.255.private

Inputs

i

an object

Outputs

x0

an object

Definition

USING: kernel math math.functions project-euler.common ;

IN: project-euler.255.private

: x0 ( i -- x0 )
    number-length dup even?
    [ 2 - 2 / 10 swap ^ 7 * ] [ 1 - 2 / 10 swap ^ 2 * ] if ;