写一个把一个集合转为包含其所有子集的集合的函数

2.请写一个把一个集合转为包含其所有子集的集合的函数
例： (1 2 3)=>((1 2 3) (1 2) (1 3) (1) (2 3) (2) (3) ())

http://mtnt2008.iteye.com/blog/715104
http://blog.csdn.net/todototry/article/details/1403807