Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

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
==========================================================


  • Prev by Date: Re: Intersection of 2D Surfaces in 3D
  • Next by Date: Re: Importing text files
  • Previous by thread: Re: Match Pairs of Numbers
  • Next by thread: Re: Match Pairs of Numbers