Re: How to create this kind of list

• To: mathgroup at smc.vnet.net
• Subject: [mg122149] Re: How to create this kind of list
• From: dimitris <dimmechan at yahoo.com>
• Date: Sun, 16 Oct 2011 07:08:35 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <j7bm30\$35r\$1@smc.vnet.net>

```There are several ways to do this. You should check what is the more
efficient!

Say the 2 lists are the following:

lst1 = Table[Random[Integer, {-100, 100}], {10}]
{-14, -62, 2, 63, -9, 78, -76, 1, -98, 26}

lst2 = Table[Random[Integer, {-100, 100}], {10}]
{-60, -98, 31, 66, -97, 47, 18, -40, 94, -76}

Then one way to proceed is:

({lst1[[#1]], lst2[[#1]]} & ) /@ Range[Length[lst1]]
{{-14, -60}, {-62, -98}, {2, 31}, {63, 66}, {-9, -97}, {78, 47}, {-76,
18}, {1, -40}, {-98, 94}, {26, -76}}

Another way is the following:

Transpose[{lst1, lst2}]
{{-14, -60}, {-62, -98}, {2, 31}, {63, 66}, {-9, -97}, {78, 47}, {-76,
18}, {1, -40}, {-98, 94}, {26, -76}}

A third way is:

{{-14, -60}, {-62, -98}, {2, 31}, {63, 66}, {-9, -97}, {78, 47}, {-76,
18}, {1, -40}, {-98, 94}, {26, -76}}

Similarly,