Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: List Comparison

  • To: mathgroup at smc.vnet.net
  • Subject: [mg67160] Re: List Comparison
  • From: "dkr" <dkrjeg at adelphia.net>
  • Date: Sun, 11 Jun 2006 02:17:23 -0400 (EDT)
  • References: <e6e2b7$1uc$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

In[17]:=
list1={{1,aa,565},{1,bb,566},{1,cc,546},{2,dd,56},{2,ff,56},{2,ss,5}};
list2={{1,aa,34},{1,bb,66},{1,cc,5443},{2,dd,76},{2,ff,87},{2,mm,87}};
In[19]:=
{result1,result2,result3}=
  Reap[Thread[{list1,list2}]/. {{{a_,b_,c_}, {a_,b_,d_}}:>

Sow[{a,b,c,d},1],{d_List,e_List}:>{Sow[d,2],Sow[e,3]}}][[2]]
Out[19]=
{{{1,aa,565,34},{1,bb,566,66},{1,cc,546,5443},{2,dd,56,76},{2,ff,56,87}},{{2,
      ss,5}},{{2,mm,87}}}

dkr


  • Prev by Date: a list as an option
  • Next by Date: Can Mathematica handle this TeX?
  • Previous by thread: List Comparison
  • Next by thread: Re: List Comparison