List 删除Mathematica中列表中重复的子列表

比如说,

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

我想把它打印出来

{{1, 2}, {3, 1}, {2, 1},{ {1, 1}}

我尝试过

删除重复项[list]

，但没有成功。有什么想法吗？一个

循环

并比较每个元素会起作用，但会占用大量内存，因为我拥有的

子列表的数量是基于（高）阶乘的
 这就是我得到的（Mathematica 8）：

另一个要考虑的命令是<代码>联合< /代码>。当它作用于单个列表时，它将删除重复项并对结果进行排序
In[1]:= Union[{{1, 2}, {3, 1}, {2, 1}, {2, 1}, {1, 1}}]
Out[1]= {{1, 1}, {1, 2}, {2, 1}, {3, 1}}

我一定是在代码的其他地方出错了。。。谢谢
In[1]:= Union[{{1, 2}, {3, 1}, {2, 1}, {2, 1}, {1, 1}}]
Out[1]= {{1, 1}, {1, 2}, {2, 1}, {3, 1}}