Re: Help: Outer of a list of lists

*To*: mathgroup at smc.vnet.net*Subject*: [mg19603] Re: [mg19599] Help: Outer of a list of lists*From*: "Andrzej Kozlowski" <andrzej at tuins.ac.jp>*Date*: Sat, 4 Sep 1999 21:09:12 -0400*Sender*: owner-wri-mathgroup at wolfram.com

I think what you need is: In[2]:= Outer[List,Apply[Sequence,A]] Out[2]= {{{{a, c, e}, {a, c, f}}, {{a, d, e}, {a, d, f}}}, {{{b, c, e}, {b, c, f}}, {{b, d, e}, {b, d, f}}}} -- Andrzej Kozlowski Toyama International University JAPAN http://sigma.tuins.ac.jp http://eri2.tuins.ac.jp ---------- >From: Joako <jge at clientes.euskaltel.es> To: mathgroup at smc.vnet.net >To: mathgroup at smc.vnet.net >Subject: [mg19603] [mg19599] Help: Outer of a list of lists >Date: Sat, Sep 4, 1999, 2:34 PM > > > In[1]:= > (* I've got a list of lists as A *) > > A={{a,b},{c,d},{e,f}} > Out[1]= > {{a,b},{c,d},{e,f}} > In[2]:= > (* Where the number of sublists is N and the lengh of every sublist is L, > and I want to obtain the Outer list of the sublists, obviously I can > do: *) > > > Outer[List,{a,b},{c,d},{e,f}] > Out[2]= > {{{{a,c,e},{a,c,f}},{{a,d,e},{a,d,f}}},{{{b,c,e},{b,c,f}},{{b,d,e},{b,d,f}}}} > In[3]:= > (* or *) > > Outer[List,A[[1]],A[[2]],A[[3]]] > Out[3]= > {{{{a,c,e},{a,c,f}},{{a,d,e},{a,d,f}}},{{{b,c,e},{b,c,f}},{{b,d,e},{b,d,f}}}} > In[4]:= > (* but N and L can take different values, > so I need to obtain Outer List directly from A, > I tried several ways as Infix but without success*) > > Infix[A,","] > Out[4]= > {a,b},{c,d},{e,f} > In[5]:= > Outer[List,Infix[A,","]] > Out[5]= > Infix[{{{a,b},{c,d},{e,f}}},{","}] > In[6]:= > (* Is there any solution ? > > Regards > > Joako *) > > >