Re: How to combine 2 list
- To: mathgroup at smc.vnet.net
- Subject: [mg122506] Re: How to combine 2 list
- From: "Dr. Wolfgang Hintze" <weh at snafu.de>
- Date: Sun, 30 Oct 2011 04:23:42 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j8gnpp$5h6$1@smc.vnet.net>
You can use Transpose[]
In[13]:=
a = {1.11, 2.07, 2.75, 3.49, 3.79, 10.2, 11.03, 19.84,
22.07, 23.29};
b = {{2011, 8, 31}, {2011, 9, 2}, {2011, 9, 6},
{2011, 9, 20}, {2011, 9, 21}, {2011, 9, 22},
{2011, 9, 28}, {2011, 9, 30}, {2011, 10, 4},
{2011, 10, 10}};
In[15]:=
Transpose[{b, a}]
Out[15]=
{{{2011, 8, 31}, 1.11}, {{2011, 9, 2}, 2.07},
{{2011, 9, 6}, 2.75}, {{2011, 9, 20}, 3.49},
{{2011, 9, 21}, 3.79}, {{2011, 9, 22}, 10.2},
{{2011, 9, 28}, 11.03}, {{2011, 9, 30}, 19.84},
{{2011, 10, 4}, 22.07}, {{2011, 10, 10}, 23.29}}
--- Wolfgang
"John" <john at datasharks.biz> schrieb im Newsbeitrag
news:j8gnpp$5h6$1 at smc.vnet.net...
>I have tried to find the answer on this, I am sure it has been asked
>before. Can anyone help?
>
> I have 2 list:
>
> cumlativeNetProfitLoss = Drop[FoldList[Plus, 0, listNetProfitLoss],
> 1]
>
> {1.11, 2.07, 2.75, 3.49, 3.79, 10.2, 11.03, 19.84, 22.07, 23.29}
>
> and
>
> dateList = Reverse[dateNetProfitLoss[[All, 1]]]
> {{2011, 8, 31}, {2011, 9, 2}, {2011, 9, 6}, {2011, 9, 20}, {2011, 9,
> 21}, {2011, 9, 22}, {2011, 9, 28}, {2011, 9, 30}, {2011, 10, 4},
> {2011, 10, 10}}
>
>
>
>
>
> How to I get:
>
> {{{2011, 8, 31}, 1.11}, {{2011, 9, 2}, 2.07}, {{2011, 9, 6}, 2.75},
> {{2011, 9, 20}, 3.49}, {{2011, 9, 21}, 3.79}, {{2011, 9, 22}, 10.2},
> {{2011, 9, 28}, 11.03}, {{2011, 9, 30}, 19.84}, {{2011, 10, 4},
> 22.07}, {{2011, 10, 10}, 23.29}}
>
>
> Thanks in advance.
>