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

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



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

AltStyle によって変換されたページ (->オリジナル) /