リストの分割 != リストの分割

gistfile1.txt

abc390dで使用。集合をいくつかの部分集合に分割する。

Needs["Combinatorica`"]
res = SetPartitions@lst;

```mathematica
In[]:= Clear["Global`*"]
n = 6;
Needs["Combinatorica`"]
comb = SetPartitions@Range@n;
Length@comb == BellB@n

Out[]= True
```

How can I obtain all partitions of a list in Mathematica?
https://stackoverflow.com/questions/8304892/how-can-i-obtain-all-partitions-of-a-list-in-mathematica