3quad* ( k l m n o t u v w x y z p q r s -- )
Extra combinators

Prev:	2quad* ( o t u v w x y z p q r s -- )
Next:	4quad* ( g h i j k l m n o t u v w x y z p q r s -- )

Vocabulary
combinators.extras

Inputs

k	an object
l	an object
m	an object
n	an object
o	an object
t	an object
u	an object
v	an object
w	an object
x	an object
y	an object
z	an object
p	a quotation with stack effect ( o p q -- ... )
q	a quotation with stack effect ( r s t -- ... )
r	a quotation with stack effect ( u v w -- ... )
s	a quotation with stack effect ( x y z -- ... )

Outputs
None

Word description
Applies p to k, l and m, then applies q to n, o and t, then applies r to u, v and w, and finally applies s to x, y and z.

Definition

USING: generalizations kernel ;

IN: combinators.extras

: 3quad* ( k l m n o t u v w x y z p q r s -- )
    [ [ [ 9 ndip ] dip 6 ndip ] dip 3dip ] dip call ; inline