sum-upto ( seq limit -- length sum )

Vocabulary

project-euler.050.private

Inputs

seq	an object
limit	an object

Outputs

length	an object
sum	an object

Definition

USING: kernel math sequences ;

IN: project-euler.050.private

:: sum-upto ( seq limit -- length sum )
    0 seq [ + dup limit > ] find
    [ swapd - ] [ drop seq length swap ] if* ;