haskell 基础题解（19）

4位数黑洞

【题目】给定一个非0的4位数，重新排列其数位，用最大减最小，得到一个新数，不足4位前补0。重复这一过程，最终会掉入一个黑洞数字。
输入一数字，要求输出掉入黑洞的过程数字。

对 haskell 不难。直接给出代码，注意可读性，不追求最短。

import Data.List (sort)

trans :: Int -> Int
trans n | or [n<1,n>9999] = error "invalid number"
trans n = 
 read bigN - read smallN 
 where
 digiN  = take 4 . (++"0000") . show $ n
 smallN = sort digiN
 bigN   = reverse smallN 

chain :: Int -> [Int]
chain n | trans n == n = [n]
        | otherwise    = n : chain (trans n)

main :: IO ()
main = do
 n <- readLn
 print $ chain n

trans 函数把一个数字变换成下一个数字。
它内部定义的函数，没有参数。这是因为函数闭包特性。内部函数可以直接持有外部函数的参数和局部变量（haskell是定义，是不变量），所以经常看起来一个参数都没有。
digiN 是把数字 n 转为字符串，不足4位时补0，这里并没有拘泥于一定在前边补0,因为反正将来要排序的，0补在哪里都一样的。

chain 就是简单地记录了变换过程而已。
本来也可用 iterate 产生一个无限的序列。如果这个思路，要考虑在哪里截断，就是 take ? 才好呢？ 可以自已与自已的tail 做zip，然后 takeWhile 不相等作条件。

error 的签名是：
[Char] -> a
所以，它可以出现在任何条件分支上，因为啥类型都能配上。也许你会说，它会有副作用啊，怎么签名里不体现呢？ 哎…程序都崩溃了，还计较啥，再说它顶天就是在屏幕上打印点东西，也不会点着房子，死者为大，就随它去吧。