0accumulate-as ( ... seq quot: ( ... prev elt -- ... next ) exemplar -- ... newseq )

Vocabulary

sequences.extras

Inputs

seq	an object
quot	a quotation with stack effect ( ... prev elt -- ... next )
exemplar	an object

Outputs

newseq

an object

Definition

USING: kernel sequences ;

IN: sequences.extras

: 0accumulate-as
    ( ... seq quot: ( ... prev elt -- ... next ) exemplar -- ... newseq )
    pick empty?
    [ 2nip clone ]
    [ [ 0 ] 2dip [ swapd [ dup ] compose ] dip map-as nip ] if ;
    inline