Cartesian Product the cute way
- To: mathgroup at yoda.physics.unc.edu
- Subject: Cartesian Product the cute way
- From: cfw2 at po.cwru.edu (Charles F. Wells)
- Date: Wed, 6 Jan 93 17:27:11 -0500
This is to brag about the following simple way to define the
cartesian product of two sets represented as lists:
In[1] := CartesianProduct[lists__] :=
Distribute[List[lists],List]
In[2] := CartesianProduct[{a,b},{1,2,3},{x,y}]
Out[2] = {{a, 1, x}, {a, 1, y}, {a, 2, x}, {a, 2, y}, {a, 3, x},
{a, 3, y}, {b, 1, x}, {b, 1, y}, {b, 2, x}, {b, 2, y},
{b, 3, x}, {b, 3, y}}
Isn't that cute?
Charles Wells
Department of Mathematics
Case Western Reserve University
10900 Euclid Avenue
Cleveland, OH 44106-7058
216-368-2893