Mathematica请教

1032410451

我描述下我的问题：



list= { {0,0,1},{1,0,0},{0,1,0} ,{1,2,3}};

其中的List的1,2,3号元素：



list[[1]]、list[[2]]、list[[3]]中的元素都是一样的，即都为1,0,0三个元素，因此我要的功能是把这样的元素保留一个即可：

即运行结果：

如 结果p={{0,0,1} ,{1,2,3}};



我知道两个函数有此功能：





p = DeleteDuplicates [ list, Sort[#1] == Sort[#2] & ];



p = Union[list,  SameTest -> (SameQ[Sort[#1], Sort[#2]] &) ]



问题是由于我的list含有10万个左右元素，这两个计算速度十分慢，，大家有什么好的方法、建议吗？？