partial-sum-minimum ( seq quot -- seq )

Vocabulary

project-euler.150.private

Inputs

seq	an object
quot	an object

Outputs

seq

an object

Definition

USING: kernel math math.order sequences ;

IN: project-euler.150.private

: partial-sum-minimum ( seq quot -- seq )
    [ 0 0 ] 2dip [ + [ min ] keep ] compose each drop ; inline