fib-upto* ( n -- seq )

Vocabulary

project-euler.002

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: project-euler.002

: fib-upto* ( n -- seq )
    [ 1 0 ] dip [ [ [ + ] 2keep dup ] ] dip [ < ] curry compose
    [ ] produce 3nip ;