e-frac ( n -- n )

Vocabulary

project-euler.065.private

Inputs

n

an object

Outputs

n

an object

Definition

USING: kernel lists lists.lazy math sequences ;

IN: project-euler.065.private

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