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


Vocabulary
sequences.extras

Inputs
seq1an object
seq-quota quotation with stack effect ( n -- seq )
quota quotation with stack effect ( a b -- )


Outputs
None

Definition


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