Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Match Pairs of Numbers

• To: mathgroup at smc.vnet.net
• Subject: [mg86910] Re: [mg86879] Match Pairs of Numbers
• From: Curtis Osterhoudt <cfo at lanl.gov>
• Date: Wed, 26 Mar 2008 04:51:49 -0500 (EST)
• Organization: LANL
• References: <200803250614.BAA10496@smc.vnet.net>
• Reply-to: cfo at lanl.gov

Greetings from MPA-11!

   The following will hopefully do what you want, though the resulting list 
isn't sorted into the pairs:

    lst = {{1, 1}, {1, 2}, {1, 3}, {1, 4}, {2, 2}, {3, 1}, {3, 2}, {3, 
    3}, 
       {4, 1}, {4, 4}}; 

    In[4]:= Select[
 Intersection[lst, Reverse /@ lst], #1[[1]] != #1[[2]] & ]

    Out[4]= {{1, 3}, {1, 4}, {3, 1}, {4, 1}}


   This forms the intersection of the list of pairs and the reversed pairs 
(keeping only those elements which are present both forwards and backwards), 
and then Select chooses those elements which don't have both numbers the same 
in each pair (e.g. {1,1} leaves, as does {2,2}, etc.). 

                Regards, 
                         C.O.


On Tuesday 25 March 2008 00:14:52 Andrew Beveridge wrote:
> Any help would be appreciated.
>
> I am using Mathematica 5.2 & 6.0
>
> I am having trouble finding the correct form of Pattern Matching for
> pairs of Numbers. I do not know whether to use Select, Cases, Pick,
> etc. I am also unsure how to set the pattern matching argument.
>
> Assume I have the list
>
> lst = {{1,1}, {1,2}, {1,3}, {1,4}, {2,2}, {3,1}, {3,2}, {3,3}, {4,1},
> {4,4}}
>
>
> I would like to match/select pairs that have the same set of numbers
> only reversed, that is, the selection would find
>
> {{1,3}, {3,1}, {1,4}, {4,1} }
>
> Thanks for your help
>
>
> Andrew C Beveridge
> MS M888
> Los Alamos National Laboratory
> Los Alamos, NM  87545
>
> 505-665-2092
> e-mail: acbev at lanl.gov



-- 
==========================================================
Curtis Osterhoudt
cfo at remove_this.lanl.and_this.gov
PGP Key ID: 0x4DCA2A10
Please avoid sending me Word or PowerPoint attachments
See http://www.gnu.org/philosophy/no-word-attachments.html
==========================================================

• References:
  • Match Pairs of Numbers
    • From: Andrew Beveridge <acbev@lanl.gov>