Re: arrange lists side by side

*To*: mathgroup at smc.vnet.net*Subject*: [mg56591] Re: arrange lists side by side*From*: "Carl K. Woll" <carlw at u.washington.edu>*Date*: Fri, 29 Apr 2005 03:21:48 -0400 (EDT)*Organization*: University of Washington*References*: <d4q1qj$oh8$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

<marloo3 at mail15.com> wrote in message news:d4q1qj$oh8$1 at smc.vnet.net... > Hi > is there a way to spread out a small list over a bigger list recurrently > like > this: > a={28, 30, 17}; > b={1, 2, 9, 4, 5, 7, 3, 8}; > to give the output: > {{1,28},{2,30},{9,17},{4,28},{5,30},{7,17},{3,28},{8,30}}; > the number of items in "b" do not neccesary multiples of the number of > items > in "a" > mark > > okay this is my approach > > a={28,30,17}; > b={1,2,9,4,5,7,3,8}; > aa={};aa=Table[Join[aa,a],{i,Length[b]/Length[a]}] > > Out[]= > {{28,30,17},{28,30,17}} > > frc=Mod[Length[b],Length[a]]; > gg=Flatten[Join[aa,Part[a,{1,frc}]]]; > Transpose[Join[{b},{gg}]] > > Out[]= > {{1,28},{2,30},{9,17},{4,28},{5,30},{7,17},{3,28},{8,30}} > > ---------------------------------------------------------------------- > > Undoubtedly you will get a lot of responses. Here is one more. Transpose[ PadRight[ {{}}, {2, Length[b]}, {b,a} ] ] Carl Woll