e-frac ( n -- n )

Vocabulary

project-euler.065.private

Inputs

n

an object

Outputs

n

an object

Definition

USING: lists lists.lazy math sequences ;

IN: project-euler.065.private

: e-frac ( n -- n )
    1 - (e-frac) ltake list>array reverse 0 [ + recip ] reduce
    2 + ;