2nested-each* ( seq1 seq-quot: ( n -- seq ) quot: ( a b -- ) -- )

Vocabulary

sequences.extras

Inputs

seq1	an object
seq-quot	a quotation with stack effect ( n -- seq )
quot	a quotation with stack effect ( a b -- )

Outputs

None

Definition

USING: kernel sequences ;

IN: sequences.extras

: 2nested-each*
    ( seq1 seq-quot: ( n -- seq ) quot: ( a b -- ) -- )
    [ [ 1check ] curry ] dip [ with each ] curry compose each ;
    inline