Student Support Forum: 'LISTS: deleting rotationally equivalent elements' topicStudent Support Forum > General > "LISTS: deleting rotationally equivalent elements"

 < Previous Comment | Next Comment > Help | Reply To Comment | Reply To Topic
 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: ,

 Subject (listing for 'LISTS: deleting rotationally equivalent elements') Author Date Posted LISTS: deleting rotationally equivalent elements Yiannis Proe... 09/19/06 09:30am Re: LISTS: deleting rotationally equivalent el... yehuda ben-s... 09/19/06 11:22pm Re: LISTS: deleting rotationally equivalent el... Yiannis Proe... 09/20/06 07:50am Re: LISTS: deleting rotationally equivalent el... yehuda ben-s... 09/21/06 02:06am Re: LISTS: deleting rotationally equivalent el... Peter Pein 09/25/06 00:47am
 < Previous Comment | Next Comment > Help | Reply To Comment | Reply To Topic