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 *)
>
>
>