(fib-upto) ( seq n limit -- seq )

Vocabulary

project-euler.002.private

Inputs

seq	an object
n	an object
limit	an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: project-euler.002.private

: (fib-upto) ( seq n limit -- seq )
    2dup <=
    [ [ suffix! dup last2 + ] dip (fib-upto) ] [ 2drop ] if ;