Re: List Manipulation

*To*: mathgroup at smc.vnet.net*Subject*: [mg124926] Re: List Manipulation*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Sun, 12 Feb 2012 05:04:49 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201202111136.GAA16379@smc.vnet.net>

l1 = {a, b, c}; l2 = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}; f[a_, b_] := Flatten[{a, #}] & /@ b; MapThread[f, {l1, l2}] // Flatten[#, 1] & {{a, 1}, {a, 2}, {a, 3}, {b, 4}, {b, 5}, {b, 6}, {c, 7}, {c, 8}, {c, 9}} Flatten[Thread /@ Thread[{l1, l2}], 1] {{a, 1}, {a, 2}, {a, 3}, {b, 4}, {b, 5}, {b, 6}, {c, 7}, {c, 8}, {c, 9}} % == %% True Bob Hanlon On Sat, Feb 11, 2012 at 6:36 AM, Murta <rodrigomurtax at gmail.com> wrote: > Hi All > > I'm looking some better solution for the below list manipulation: > l1={a,b,c}; > l2={{1,2,3},{4,5,6},{7,8,9}}; > output = {{a,1},{a,2},{a,3},{b,4},{b,5},{b,6},{c,7},{c,8},{c,9}} > It's a simple distributions of terms. > > I used this solution, but I think it's not an elegant one: > > f[a_, b_] := Flatten[{a, #}] & /@ b; > MapThread[f, {l1, l2}] // Flatten[#, 1] & > > Some clue? > Maybe with Outer or Inner? > Thanks in advance! > Murta >

**References**:**List Manipulation***From:*Murta <rodrigomurtax@gmail.com>