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 wheredigiN  = take 4 . (++"0000") . show $ nsmallN = sort digiNbigN   = reverse smallN chain :: Int -> [Int]
chain n | trans n == n = [n]| otherwise    = n : chain (trans n)main :: IO ()
main = don <- readLnprint $ chain n

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

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

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

haskell 基础题解（19）相关推荐

haskell 基础题解（31）
生成全排列 [题目]已知若干字母,求它们所有的可能排列,例如:"abc"的全排列: "abc","acb","bac", ...
haskell 基础题解（35）
汉诺塔 [题目]传说印度的一个神庙中,供有天神制成的"汉诺塔".它是三根柱子.在一根柱子上,从上到下,由小到大叠放着64个金盘.僧人们要把这些金盘搬到另一根柱子上.规则是:一次只能 ...
计算机网络基础题解综合练习实验,计算机网络基础题解•综合练习•实验
计算机网络基础题解•综合练习•实验作者:赵宇编著出版时间:2005年01月定价:23.00 I S B N :9787111137221 所属分类: 标签: 本书是"计算机网络 ...
计算机应用基础0006 19春在线作业1,《计算机应用基础0006》19春在线作业1 为了实现自动控制处理需要计算机具有的基础条件是...
<计算机应用基础0006>19春在线作业1 为了实现自动控制处理需要计算机具有的基础条件是 (12页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便 ...
计算机应用基础0006 19春在线作业2,《计算机应用基础0006》19春在线作业参考资料...
<计算机应用基础0006>19春在线作业参考资料 (12页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦! 14.9 积分计算机应用基础000 ...
奥鹏网考大学计算机基础,[南开大学（本部）]《大学计算机基础》19秋期末考核(答案参考）...
[奥鹏]-[南开大学(本部)]<大学计算机基础>19秋期末考核试卷总分:100 得分:100 第1题,流程图中平行四边形表示( ). A.开始/结束 B.输入/输出 C.条件 ...
「学习总结-Haskell-1」Haskell 基础知识
Haskell基础知识 Table of Contents 1 Haskell 基本知识 1.1 Haskell 开发环境安装 1.2 Haskell 代码如何运行 1.3 Haskell 函数定义和 ...
精选蓝桥杯省赛基础题解2015-2022
相关链接:蓝桥杯省赛历年真题解2015-2022 蓝桥杯比赛中,可以使用的语言有C/C++,Java和Python. 程序的关键在于编程技巧.数据结构和算法,所以这里的题解均用C/C++语言来写. 参 ...
南开19计算机应用基础,南开19秋《计算机应用基础》在线作业答案
19秋学期(1709.1803.1809.1903.1909)<计算机应用基础>在线作业, E' Y3 p3 R. V+ P+ u5 P0 C 1.[单选题] 在Word软件中,实现首字下 ...
计算机应用基础0006 19春在线作业1,《计算机应用基础0006》19春在线作业1
<计算机应用基础0006>19春在线作业1 2019-5-24 484 <计算机应用基础0006>19春在线作业1 1.[单选题]为了实现自动控制处理,需要计算机具有的基础条件 ...

haskell 基础题解（19）

4位数黑洞

haskell 基础题解（19）相关推荐

最新文章

热门文章