Re: direct product of two sets

*To*: mathgroup at smc.vnet.net*Subject*: [mg53290] Re: [mg53264] direct product of two sets*From*: yehuda ben-shimol <benshimo at bgu.ac.il>*Date*: Tue, 4 Jan 2005 03:14:00 -0500 (EST)*References*: <200501030929.EAA10701@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Use Outer Outer[List,a,b] so let a={1,2,3}; b={4,5,6}; Flatten[Outer[List, a, b], 1] gives you {{1, 4}, {1, 5}, {1, 6}, {2, 4}, {2, 5}, {2, 6}, {3, 4}, {3, 5}, {3, 6}} Another option is to use Distribute[] Distribute[{a,b},List] will give you the same result yehuda Cong wrote: >Hello! > >Give 2 finite sets A and B, how can I compute their direct product >A x B := {(a,b) : a\in A, b\in B} > >Can someone help me? > >Best Regards, > >Cong > > >

**References**:**direct product of two sets***From:*vo.chi.cong@is.titech.ac.jp (Cong)