(e-frac) ( -- seq )

Vocabulary

project-euler.065.private

Inputs

None

Outputs

seq

an object

Definition

USING: kernel lists.lazy math ;

IN: project-euler.065.private

: (e-frac) ( -- seq )
    2 lfrom
    [ dup 3 mod zero? [ 3 / 2 * ] [ drop 1 ] if ] lmap-lazy ;