Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Transpose to multiple lists

• To: mathgroup at smc.vnet.net
• Subject: [mg55735] Transpose to multiple lists
• From: konstantpi at mail15.com
• Date: Tue, 5 Apr 2005 03:20:53 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

First Q:Transpose to multiple lists
a={3,6,3,2}
b={9,8,7,6}
Join[Transpose[{Range[Length[a]], a}],Transpose[{Range[Length[b]], b}]]

Out[]={{1, 3}, {2, 6}, {3, 3}, {4, 2}, {1, 9}, {2, 8}, {3, 7}, {4, 6}}
what are the concise solutions other than this dumby solution

Second Question: transposing Range to every sublist
lst={{4,6,3},{6,8,7,3},{9,4}}
how could i obtain the output:
{{1,4},{2,6},{3,3},{1,6},{2,8},{3,7},{4,3},{1,9},{2,4}}
thanks
konstant.

• Follow-Ups:
  • Re: Transpose to multiple lists
    • From: DrBob <drbob@bigfoot.com>