(accumulate*) ( seq identity quot -- identity seq quot' )

Vocabulary

sequences.private

Inputs

seq	an object
identity	an object
quot	an object

Outputs

identity	an object
seq	an object
quot'	an object

Definition

USING: kernel ;

IN: sequences.private

: (accumulate*) ( seq identity quot -- identity seq quot' )
    swapd [ dup ] compose ; inline