|
|
identical rows in tables
Posted:
Mar 16, 2009 5:23 AM
|
|
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
|
|
