Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: identical rows in tables

  • To: mathgroup at smc.vnet.net
  • Subject: [mg97624] Re: [mg97583] identical rows in tables
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Tue, 17 Mar 2009 04:59:52 -0500 (EST)
  • References: <200903160923.EAA25503@smc.vnet.net>
  • Reply-to: drmajorbob at bigfoot.com

First the data:

data = {{1, 2, 3, 4, 5, 6, 7, 8}, {1, 4, 6, 2, 8, 3, 7, 5}, {1, 4, 2,
     6, 3, 8, 5, 7}, {1, 3, 2, 5, 4, 7, 6, 8}, {1, 3, 5, 2, 7, 4, 8,
     6}, {1, 8, 7, 6, 5, 4, 3, 2}, {1, 8, 6, 7, 4, 5, 2, 3}, {1, 3, 2,
     5, 4, 7, 6, 8}, {1, 3, 5, 2, 7, 4, 8, 6}};

Concatenating lists into strings:

StringJoin @@@ (data /. q_Integer :> ToString@q)

{"12345678", "14628375", "14263857", "13254768", "13527486", \
"18765432", "18674523", "13254768", "13527486"}

or

StringJoin @@@ Map[ToString, data, {2}]

{"12345678", "14628375", "14263857", "13254768", "13527486", \
"18765432", "18674523", "13254768", "13527486"}

Count copies:

Tally@data

Delete copies:

DeleteDuplicates@data

or

Tally[data][[All,1]]

or

Union@data

or

DeleteDuplicates@(StringJoin @@@ Map[ToString, data, {2}])

{"12345678", "14628375", "14263857", "13254768", "13527486", \
"18765432", "18674523"}

If you want colored strings:

color[k_]:={Black,Red,Blue,Green}[[Mod[k,4,1]]]
Tally[data]/.{x_List,k_}:>Style[StringJoin@@ToString/@x,color[k]]

{12345678,14628375,14263857,13254768,13527486,18765432,18674523}

(Execute the code, to see colors.)

Bobby

On Mon, 16 Mar 2009 04:23:48 -0500, King, Peter R  
<peter.king at imperial.ac.uk> wrote:

> I have a table of values
>
> e.g.{{1, 2, 3, 4, 5, 6, 7, 8}, {1, 4, 6, 2, 8, 3, 7, 5}, {1, 4, 2, 6, 3,
>   8, 5, 7}, {1, 3, 2, 5, 4, 7, 6, 8}, {1, 3, 5, 2, 7, 4, 8, 6}, {1, 2,
>    4, 3, 6, 5, 8, 7}, {1, 2, 3, 4, 5, 6, 7, 8}}
>
> and want to check if any rows are identical (so there are none in the  
> above=
>  - I can remove last or first row which are supposed to be the same).
>
> But in the following {{1, 2, 3, 4, 5, 6, 7, 8}, {1, 4, 6, 2, 8, 3, 7,  
> 5}, {=
> 1, 4, 2, 6, 3,
>   8, 5, 7}, {1, 3, 2, 5, 4, 7, 6, 8}, {1, 3, 5, 2, 7, 4, 8, 6}, {1, 8,
>    7, 6, 5, 4, 3, 2}, {1, 8, 6, 7, 4, 5, 2, 3}, {1, 3, 2, 5, 4, 7, 6,
>   8}, {1, 3, 5, 2, 7, 4, 8, 6},....}
>
>  there is a pair {1, 3, 2, 5, 4, 7, 6,
>   8}, {1, 3, 5, 2, 7, 4, 8, 6} which are the same.
>
> In an ideal world when I print out (in say TableForm)  the repeated rows  
> ca=
> n be printed in red (or some specified colour)
>
> These rows are permutations if that makes any difference. The tables can  
> be=
>  of any size (but always permutations of n numbers)
>
> as a subsidiary question is there an easy way to convert the tables into  
> nu=
> mbers (or strings) eg
>
> {12345678,14628375,14263857 etc}
>
> Alternatively is there an easy way to perform permutations on strings of  
> ch=
> aracters?
>
> Many thanks for your help to the multiple questions
> ps I am using Mathematica 6.03
>



-- 
DrMajorBob at bigfoot.com


  • Prev by Date: Re: identical rows in tables
  • Next by Date: Re: Using Mathematica notebooks in presentations?
  • Previous by thread: identical rows in tables
  • Next by thread: Re: identical rows in tables