| Author |
Comment/Response |
Yiannis Proestos
|
 09/20/06 07:50am
Hi Yehuda,
Thanks for your answer and especially for the option "SameTest->", that I wasn't aware of.
By the way, the result I want (ListB) is obtained if Union[list, SameTest->rotEq] instead of Sort[list, SameTest->rotEq] is used.
Cheers,
Y.
P.S: The corrected input list should read
ListA={{{b,1},{a,1},{a,3}},{{b,1},{a,3},{a,1}},{{a,2},{a,2},{b,1}},…,{{b,1},{a,2},{a,2}}, {{a,2},{b,1},{a,2}}}.
Also the other function "CompareJ[j_Integer, ListA_List]" does not appear properly on the web asnd it should also be
CompareJ[j_Integer,ListA_List]:=Cases[Table[If[sameclosedloops[ListA[[j]], ListA [[i+1]]]==True,Cases[ListA,_?(# \[NotEqual]ListA [[i+1]]&)], ListA [[i+1]]],{i,j,Length[ListA]-1}],_?(#\[NotEqual]{}&)];
URL: , |
|
