partial-sums ( seq -- seq' )

Vocabulary

sequences.extras

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: kernel math sequences ;

IN: sequences.extras

: partial-sums ( seq -- seq' ) 0 swap [ + dup ] map nip ;