用Haskell写的卡普雷尔卡kaprekar黑洞小程序
无意中在博客园里发现这个卡普雷尔卡黑洞题目,正好适合用haskell练手,就试着用Haskell实现了。
原题描述:
把一个四位数的四个数字由小至大排列,组成一个新数,又由大至小排列排列组成一个新数,这两个数相减,之后重复这个步骤,只要四位数的四个数字不重复,数字最终便会变成 6174。
例如:
3109,9171 (=9310 - 0139),8532 (=9711 - 1179),6174 (=8532 - 2358),6174 ......
import Data.Char
import Data.ListnextInt 0 = 6174 -- 当4个数字相同时,会得到0的结果,会使程序出现一个无限序列,所以让0的下一个数为6174
nextInt x = maxInt - minIntwhere list = sort (intToDigits x) --这种排序是从小到大的maxInt = (intFromDigits . reverse) listminInt = intFromDigits list-- 把4个数字的列表转换为整数,例如intFromDigits [1,2,3,4] = 1234
intFromDigits [d1,d2,d3,d4] = d1*1000 + d2*100 + d3*10 + d4-- 把一个整数拆分成4个整数,可以有0。例如:intToDigits 1234 = [1,2,3,4]
intToDigits x = r1:d2:d3:d4:[] -- 这里用了一种模式匹配where (r3,d4) = x `divMod` 10 -- 1234 `divMod` 10 = (123, 4), r3=123, d4=4(r2,d3) = r3 `divMod` 10 -- 123 `divMod` 10 = (12, 3), r2=12, d3=3(r1,d2) = r2 `divMod` 10 -- 12 `divMod` 10 = (1, 2), r1=1, d2=2
-- 生成kaprekar序列, (iterate nextInt x)会生成一个无穷序列,前面用takeWhile把6174后面的数都截断掉
kaprekar x = (takeWhile (/=6174) (iterate nextInt x)) ++ [6174]-- 把1到9999的所有4位数都试一遍,只取长度为8的结果
run = [xs | xs<-(map kaprekar [1..9999]), (length xs)==8]
前10个结果是:
[[14,4086,8172,7443,3996,6264,4176,6174],
[15,5085,7992,7173,6354,3087,8352,6174],
[16,6084,8172,7443,3996,6264,4176,6174],
[25,5175,5994,5355,1998,8082,8532,6174],
[41,4086,8172,7443,3996,6264,4176,6174],
[49,9351,8172,7443,3996,6264,4176,6174],
[51,5085,7992,7173,6354,3087,8352,6174],
[52,5175,5994,5355,1998,8082,8532,6174],
[58,8442,5994,5355,1998,8082,8532,6174],
[59,9441,7992,7173,6354,3087,8352,6174]]
用Haskell写的卡普雷尔卡kaprekar黑洞小程序相关推荐
- 青龙羊毛之天问科技-7日打卡【微信小程序】
/* @jzack 天问科技-7日打卡[微信小程序] 赚钱天天乐 同一家得 满一元 提现秒到支付宝 [仅写了签到和查余额]后续补充提现 抓包 taokeout.jutuike.com 域名header ...
- python写一个表白程序_用Python写一个能算出自己年龄的小程序
用Python写一个能算出自己年龄的小程序. 其实我连我今年多少岁都不知道,最近看到了python的datetime库里面有很多好用的方法,于是就写了这样一个程序作为练习,然后又写了这样一篇文章来梳理 ...
- 如何用python计算年龄_用Python写一个能算出自己年龄的小程序
用Python写一个能算出自己年龄的小程序. 其实我连我今年多少岁都不知道,最近看到了python的datetime库里面有很多好用的方法,于是就写了这样一个程序作为练习,然后又写了这样一篇文章来梳理 ...
- (已更新)最新打卡抽奖助手小程序源码,带微信通知功能,去授权
源码已经测试,去除授权 安装即可运营,微擎后端 1.首先安装微擎模块,上传服务器这个大家都知道,就不用过多解释了 2.配置 推荐 (服务器最低配置1h2g,域名需要备案且还需要设置ssl证书) Nig ...
- 最新款打卡抽奖助手小程序源码,带微信通知功能,去授权
源码已经测试,去除授权 安装即可运营,微擎后端 1.首先安装微擎模块,上传服务器这个大家都知道,就不用过多解释了 2.配置 推荐 (服务器最低配置1h2g,域名需要备案且还需要设置ssl证书) Nig ...
- 云开发旅游打卡广场微信小程序源码(含视频教程)
简介: 一款旅游打卡小程序,使用云开发技术,taro 构建 主要功能有:景点列表.景点详情.打卡.评论.景点地图.导航等等,具体看下面的截图. 源码下载地址:云开发旅游打卡广场微信小程序源码.zip ...
- 只要功夫深,菜鸟也能写出细节满满的古茗点单小程序
前言 写在项目前的话: 临近期末了,各学科纷纷结课,随之而来的是各个课设的纷至沓来.俗话说得好,大学生的生活前五个月是温水泡脚,那么最后一个月的就是将前五个月泡脚的水喝下去.作为一个平日里摸鱼摸惯的摸 ...
- 旅游卡景区购票小程序开发定制
旅游业的蓬勃发展,越来越多的景区开始推出自己的旅游卡,以吸引更多的游客前来观光.同时,为了更加便捷地服务游客,许多景区也开始启用小程序来进行门票售卖和游客管理.针对这种情况,专业的小程序开发公司推出了 ...
- 团队公司地点拍照打卡签到活动小程序 document.forms[“myForm“][“fname“]
function validateForm() {var x = document.forms["myForm"]["fname"].value;if (x = ...
最新文章
- 服务器php环境一键配置,phpstudy一键配置服务器环境教程
- python3 selenium.common.exceptions.UnexpectedAlertPresentException: Alert Text: None 错误处理
- DayDayUp:那些年-程序猿的爱情故事
- 户外私密Party | 在大峡谷里聊一点平时不能聊的干货(报名ing...)
- linux内核多种进程间通信机制
- 20150103--SQL连接查询+视图-02
- 定义const变量是不可以赋值_JavaScript的声明方法和作用范围,常见的结构赋值类型和使用场景...
- 数学家、数学轶事与数学史话
- 前端web 技术盘点
- 极域电子教室软件 v4.0 2015 豪华版忘记密码怎么办
- Guns二次开发目录
- Visual Graph常见问题回答(FAQ)
- Android关于透明度对应表
- OpenCV——绘制等高线
- 路由器连接校园网并发WIFI:WR703N路由器安装OpenWRT并运行H3C客户端操作步骤(主要针对中山大学东校区)
- killnet软件怎么用_Wifi Kill怎么用 WIFI KILL助你全方位独霸局域网
- 利用word的freemarker模板导出word文件
- [ANT]apache ant 安装说明
- 基于ORL人脸数据库和PCA特征降维算法的人脸识别matlab仿真
- 高精度光纤激光切割机,光纤激光切割厂家
热门文章
- 计算机弹歌光年之外谱子,光年之外-G.E.M. 鄧紫棋-和弦谱-《弹吧》官网tan8.com-和弦谱大全,学吉他,秀吉他...
- Oracle HINT的常见用法
- Leetcode_122_Best Time to Buy and Sell Stock II
- 消费心理学(04):价格锚点
- 不能不懂的 Java 源代码编译过程分析
- 【翻译】Chrome Developer Tools: Element 样式
- 国产备份软件、备份设备
- Spring Data Redis 多源
- 转载:持续集成之解决jenkins内存溢出问题
- C#中在鼠标经过Button控件时显示提示信息(弹出气泡提示框)