haskell 基础题解（06）

最新推荐文章于 2019-10-09 15:32:00 发布
最新推荐文章于 2019-10-09 15:32:00 发布
阅读量211 收藏
点赞数
分类专栏： HASKELL
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ggyhang/article/details/97920001
版权
博客探讨了完全数的概念，即一个数的所有真因子之和等于其本身。提到完全数非常稀少，例如最小的完全数是6，并讨论了通过地毯式搜索的方法寻找完全数，尽管这种方法对于找到更靠后的完全数效率较低。
摘要由CSDN通过智能技术生成

完全数问题

【题目】如果一个数的所有真因子（不包含它自身的因子）之和恰等于其自身，则该数为完全数，也称为完美数（perfect number）。完全数有许多奇妙的性质。但它们很稀少，你来求前几个吧。最小的一个是 6，因为： 6 = 1 + 2 + 3

这个完全数的定义已经很清楚了，如果没有什么妙法，就地毯式搜索也可以。下法就是：

yin_zi :: Int -> [Int]
yin_zi n = [ x | x <- [1..n-1], n `mod` x =
最低0.47元/天 解锁文章
可雷曼土
关注
专栏目录
haskell 基础题解（05）
可雷曼土的日志
07-31 233
分解质因数 【题目】给一个数，求它的质因数分解形式 例如：10 = 2 * 2 * 5 看起来需要一个所有质数的表，从小到大，每一个不断去试除那个给定的数，除开了，它就是一个合格的质因数。。。。。 实际上也可以递归地思考，依次从 2,3,4… 中找一个数x去试除N，如果能除开，x收入囊中，然后接着求N/x 的所有质因数就可以了。 之所以不用质数列试除也可以，是因为：假如某个合数可除尽，那么它的质数...
用Haskell生成帕斯卡三角形
热门推荐
会飞的鱼的专栏
07-24 1万+
帕斯卡三角形（杨辉三角形）的每一列都可以看成是前一列的数列积分。即当n是从0开始的自然数，则C(x, n)是C(x, (n-1))中x在区间n到无穷大的数列积分。从这个定义出发可以用Haskell的惰性求值来用比较简单的方式得到帕斯卡三角形。 下面是ghci中实际运行的结果，输出结果未做裁切，是一个菱形。具体如下： 这是定义数列积分 Prelude Data.List> let pasn
haskell 基础题解（07）
可雷曼土的日志
07-31 226
杨辉三角 【题目】 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 。。。 这个阵势叫杨辉三角，国外叫帕斯卡三角。前一行的数字中，每两个相邻的数字相加就得到下一行的数字。左右两边的数永远是 1 写个程序，输出前几行的杨辉三角。 给定前一行，生成出下一行，这正是生成器模式（或叫产生器模式），haskell解法： import Data.List (interspe...
haskell 基础题解（35）
可雷曼土的日志
08-15 263
汉诺塔 【题目】传说印度的一个神庙中，供有天神制成的“汉诺塔”。它是三根柱子。在一根柱子上，从上到下，由小到大叠放着64个金盘。僧人们要把这些金盘搬到另一根柱子上。规则是：一次只能移动一个圆盘。大盘不能叠在小盘的上面。 那么，完成这个任务，最少要移动多少次呢？ 这个问题难点也是大整数运算。 大整数的构造见【问题34】。 另外还有一个迷惑人的地方：比如要把这些盘子都移到c柱，那第一步是把最小的那个...
用Haskell计算矩阵
mjk的专栏
03-29 3448
a :: Matrixa = [[2.0, 3.0, 4.0],     [5.0, 6.0, -1.0]]b :: Matrixb = [[1.0, 0.0],      [1.0, 1.0],     [0.0, -1.0]]matrixProduct :: Matrix -> Matrix -> MatrixmatrixProduct m p = [[ scalarProduct r c |
haskell 基础题解（46）
可雷曼土的日志
08-23 194
身份证号码校验 【问题】我们现在使用的身份证号码是18位的。其中最后一位是校验位，它有可能是“X”，代表数字“10”。当某个注册流程让你添身份证号的时候，胡乱凑一些数字是不能通过校验的。原因是这些数字首先需要满足校验规则。 其规则是数字公式表示为： ∑i=118(ai×Wi)≡1(mod11) \sum_{i=1}^{18} \left ( a_{i} \times W_{i}\right ) \...
haskell 基础题解（42）
可雷曼土的日志
08-21 222
Excell地址转换 【题目】Excell中，列是用字母来表示的。A表示1, B表示2, … Z 表示26, AA 表示27 … 试编写一个程序， 在Excell列地址的字母表达法和十进制表示法间进行转换。 Excell 的这个表示法很有趣，它不是标准的26进制表示，因为A并不代表0， 也不是单纯的因为起始从0还从1开始的差1问题。 但只要抓住共性即可。高位仍然代表： 本位真值⋅26右边第几位−1...
haskell 基础题解（12）
可雷曼土的日志
08-01 299
字母金字塔 【题目】打印输出如下图的字母金字塔 这题目就不能简单地换“花布”了。 可以看到，每行中的样式不是重复，而是某个序列和它的镜像拼起来的。 下面是 haskell 的解法： import Data.List (intersperse) zi_mu = ['A'..] ta = [ take i zi_mu ++ reverse(take (i-1) zi_mu) | i<-...
haskell 基础题解（10）
可雷曼土的日志
08-01 244
打印金字塔1 【题目】在控制台打印如下的星号组成的金字塔图形 这是比较初级的练习题目。解法五花八门。 这里给出的 haskell 的解法，注重函数式的思考模式。 这种思考习惯真的真的很重要！！！ import Data.List (intersperse) xing = [ replicate i '*' | i<-[1,3..] ] kong = [ replicate i ' ' |...
haskell 基础题解（39）
可雷曼土的日志
08-19 201
日期问题 【题目】有一类这样的问题，形如： 1949年1月21日 到 2011年5月4日， 一共经过了多少天？ 1981年6月6日后的1000天是什么日期？ 1960年4月1日是星期几？ 从建国到 2019年10月1日，有多少个国庆节是星期日？ … 不管你使用什么语言，请不要调用任何关于日期的现成API，而是自己编码解决上述问题。 实际上，就算允许你调用日期-时间的API，这类问题往往也很棘手。因...
haskell基础题解（47）
可雷曼土的日志
08-26 237
有理数四则运算 【题目】计算机内的浮点数是一种近似表示法。而我们都知道，除法运算产生的小数，要么是有限的，要么就是无限的循环小数。这会因为硬件的制约而导致精度的损失。在一般情况下不是问题，但在有些特殊场合，是不允许有误差的。 还好，我们知道，有理数可以表示为整数的比值。如果我们直接存储这个比值，而不是小数，对四则运算将不会的精度的损失。 许多的语言都内置了有理数类。请自行设计一个有理数类型，能支持...
haskell 基础题解（20）
可雷曼土的日志
08-05 166
5位数字黑圈 【题目】不同于4位数字，如果是一个5位数，像【问题19】那样运算，最终不会落入一个数字黑洞（0除外），而是在一组数字中不断地循环兜圈子。可以姑且称之为：数字黑圈吧。 请你计算一下，所有的5位数字，一共可能落入多少个数字黑圈。 与【问题19】相比，需要增加处理的是：如何判断一个数字已经落入黑圈。 我们可以在数字链中查找是否已经出现过这个数字，如果是，那必然形成黑圈。而且，我们可以注意到...
haskell 基础题解（61）
可雷曼土的日志
09-20 373
最大子组和 【题目】已知一个整数数组（可能有正数，也有负数），求它的一个连续的子数组，要求该子数组的和为最大。这样的问题称为最大子组和问题。 如果用最普通的解法，考虑所有可能的子数组，分别对其求和，再从这些和中取最大的一个就行了。其时间复杂度为 O(n)。 haskell 实现这种想法也很容易： import Data.List (tails,inits) maxSub :: [Int] -&g...
haskell 基础题解（51）
可雷曼土的日志
08-29 1048
矩阵乘法 【题目】从控制台输入两个整数的矩阵，中间中空行隔开。求这两个矩阵相乘后的矩阵。 对 haskell 而言，这个问题的主要工作就是处理好输入输出的格式问题。 输入可以先变成行的List， 找到 空行位置分为两部分处理。 上代码： import Data.List (transpose) (*.) :: [[Int]] -> [[Int]] -> [[Int]] a *. b ...
Haskell 基础题解（01）
可雷曼土的日志
07-30 491
打印九九乘法表 初学 haskell 的关键是：掌握函数式思考问题的技艺 haskell 是纯函数式的语言，它的函数基本与数学上的函数等价： 给同样的输入，总是得到相同的输出。 函数保证没有副作用，除了计算出结果，啥都不做 函数的求值次序无法控制 函数求值是惰性的，只要还没被用到，绝不去求值 要改变现实世界（比如屏幕上的像素点），总要有点副作用才行。haskell 的理念是：把纯函数与有副作用...
haskell 基础题解（04）
可雷曼土的日志
07-31 425
最大公约数与最小公倍数 【题目】已知两个整数M，N，求它们的最大公约数和最小公倍数 先是用最笨的办法考虑。所谓最大公约数就是从大到小地找一个数，这个数能同时整除M和N。 gcd' :: Integral a => a -> a -> a gcd' m n = let c = min m n - 1 st = [ x | x <- [c,c-1 .. 1],...
hasell 基础题解（02）
可雷曼土的日志
07-30 422
斐波那契数列问题 【问题】输出斐波那契数列的前100项 1,1,2,3,5,8,13,… 有些书上是从0开始，0,1,1,2,3,… 这种写法数学上更完美一点吧。 如果用 haskell 来解，有很多方法。先来个其它语言中常用来引入递归的写法。 其实，haskell 中递归是家常便饭，没有递归可以说举步维艰，因为 haskell中没有循环，要想重复一件事，只能递归。 fei :: Int -&gt...
haskell 基础题解（28）
可雷曼土的日志
08-12 388
级数法求圆周率 【题目】圆周率是个无量纲常数，十分重要。圆周率的求法多种多样。级数法最常见。有些公式看上去很简洁，可惜收敛很慢。如下即是： lim⁡n→∞∑k=1n1k2=π26 \lim_{n \to \infty} \sum_{k=1}^n \frac {1}{k^2} = \frac {\pi^2}{6} n→∞lim​k=1∑n​k21​=6π2​ 试用此法累加10000项求圆周率。 这...
haskell 基础题解（52 最原始加密算法）
可雷曼土的日志
10-09 382
原始加密解密 【题目】相传最早使用密文传递信息的古罗马军队。他们对明文中字母进行移位处理。比如：A向后移2位，就是C，B就变为D，… 最后，Y变成A，Z变成B 收到文件的一方只要向前移动就可以了。 当然，为了增加强度，可以一字一密。就是有一个密码本，比如 (2,3,7)。 它表示，遇到第一个字母后移2位，第2个字母后移3位，第3个字母后移7位，第4个字母后移2位，… 如此循环。 已知了密码本，请...
Haskell基础课程第一部分PPT解析
学习者通过这门课程能够对Haskell有一个全面的认识，并为掌握更高级的Haskell编程技巧打下坚实的基础。随着学习的深入，学习者还可以探索Haskell的更多高级特性，例如并发和并行编程、类型系统的高级应用、异常处理...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值