无意中在博客园里发现这个卡普雷尔卡黑洞题目，正好适合用haskell练手，就试着用Haskell实现了。  原题描述： 把一个四位数的四个数字由小至大排列，组成一个新数，又由大至小排列排列组成一个新数，这两个数相减，之后重复这个步骤，只要四位数的四个数字不重复，数字最终便会变成 6174。 例如： 3109，9171 (=9310 - 0139)，8532 (=9711 - 1179)，6174