haskell 基础题解（17）

最新推荐文章于 2019-10-09 15:32:00 发布
原创 最新推荐文章于 2019-10-09 15:32:00 发布 · 247 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了如何使用Haskell编程语言实现冒泡排序。通过理解冒泡排序的原理，结合Haskell的函数复合特性，利用foldl函数将排序过程表示为连续的函数应用，展现了函数式编程的独特魅力。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

冒泡排序

【题目】一行输入若干整数，用冒泡法排序，然后输出排序后的数字。

冒泡排序的一趟排序是：从左到右扫描，相邻两个元素小的交换到左边。
n 个数，作 n-1 趟后就排好了。

haskell实现：

mao_pao :: [Int] -> [Int] 
mao_pao t = f t (length t - 1) where
  f x 0 = x
  f x n = f (g x) (n-
最低0.47元/天 解锁文章

200万优质内容无限畅学
haskell 基础题解（29）
可雷曼土的日志
08-12 308
祖冲之割圆法 【题目】南北朝时，我国数学家祖冲之首先把圆周率值计算到小数点后六位，比欧洲早了1100年！他采用的是称为“割圆法”的算法，实际上已经蕴含着现代微积分的思想。 他的方法是从正六边形开始，不断地让边数翻倍，边数越多，多边形边长越接近圆的周长。 割圆后，新的边长与原边长的关系，可以用勾股定理给出。如下图： 试用此法编程求圆周率。 根据前一次的值生成下一个值在 haskell 中可以抽象为...
haskell 基础题解（03）
可雷曼土的日志
07-30 336
素数问题 【题目】 2,3,5,7,11 … 是前几个素数，求 1000 以内一共有多少个素数。 最容易想到的解法，当然是先造一个函数，能判断一个数是不是素数。 从2开始的小于 n的数字，如果能除尽 n，则n不是素数。 is_su :: Int -> Bool is_su n = [ 1 | x <- [2..(n-1)], n `mod` x == 0 ] == [] su_shu...
haskell 基础题解（16）
可雷曼土的日志
08-02 200
打印菱形 【题目】打印输出一个边长为 N 的菱形，当N=5时，如图： 用函数式的想法，不会仔细去安排每个星号的位置和空格的数目。 它首先会注意到对称性。 只工造出了它的四分之一，再变换拼接即可。 代码很短： base n = [ replicate i ' ' | i<-[0..n] ] left n = zipWith (\x y-> x ++ "*" ++ y) (base n)...
haskell 基础题解（04）
可雷曼土的日志
07-31 449
最大公约数与最小公倍数 【题目】已知两个整数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],...
haskell 基础题解（28）
可雷曼土的日志
08-12 416
级数法求圆周率 【题目】圆周率是个无量纲常数，十分重要。圆周率的求法多种多样。级数法最常见。有些公式看上去很简洁，可惜收敛很慢。如下即是： 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 基础题解（42）
可雷曼土的日志
08-21 260
Excell地址转换 【题目】Excell中，列是用字母来表示的。A表示1, B表示2, … Z 表示26, AA 表示27 … 试编写一个程序， 在Excell列地址的字母表达法和十进制表示法间进行转换。 Excell 的这个表示法很有趣，它不是标准的26进制表示，因为A并不代表0， 也不是单纯的因为起始从0还从1开始的差1问题。 但只要抓住共性即可。高位仍然代表： 本位真值⋅26右边第几位−1...
haskell基础题解（47）
可雷曼土的日志
08-26 268
有理数四则运算 【题目】计算机内的浮点数是一种近似表示法。而我们都知道，除法运算产生的小数，要么是有限的，要么就是无限的循环小数。这会因为硬件的制约而导致精度的损失。在一般情况下不是问题，但在有些特殊场合，是不允许有误差的。 还好，我们知道，有理数可以表示为整数的比值。如果我们直接存储这个比值，而不是小数，对四则运算将不会的精度的损失。 许多的语言都内置了有理数类。请自行设计一个有理数类型，能支持...
Haskell 基础题解（01）
可雷曼土的日志
07-30 531
打印九九乘法表 初学 haskell 的关键是：掌握函数式思考问题的技艺 haskell 是纯函数式的语言，它的函数基本与数学上的函数等价： 给同样的输入，总是得到相同的输出。 函数保证没有副作用，除了计算出结果，啥都不做 函数的求值次序无法控制 函数求值是惰性的，只要还没被用到，绝不去求值 要改变现实世界（比如屏幕上的像素点），总要有点副作用才行。haskell 的理念是：把纯函数与有副作用...
haskell 基础题解（31）
可雷曼土的日志
08-13 347
生成全排列 【题目】已知若干字母，求它们所有的可能排列，例如：“abc”的全排列： “abc”,“acb”,“bac”,“bca”,“cab”,“cba” 这个问题用 haskell 解有点作弊。因为 Data.List 中有个现成的：permutations 就是干这个的。 好吧，不用它，我们自己写个，也没几行代码。 ----生成全排列 import Data.List (delete) pe...
haskell 基础题解（30）
可雷曼土的日志
08-13 294
小数循环节 【问题】 我们都会手算除法，比如：123除以13。 当然，有的时候会出现无限循环小数。 1 请模拟手算除法的过程，计算a除以b的小数后100位。 2 发现无限循环小数的循环节，并标识出来。 比如：123除以13，表示为： 9.[461538] 这个题目要求我们模拟手算除法的过程。初看，用命令式的思考更直观，但因为要保存处理计算的过程，也并不占便宜。。。。 换用 haskell 呢？ 如...
haskell 基础题解（24）
可雷曼土的日志
08-09 285
归并排序 【题目】归并排序是在两个已经排序的队列中，不断取队头最小的来完成排序的一种算法。试模拟其 merge 算法。 这个问题用 haskell 解决很容易。haskell 的惰性又可以免去我们考虑队列过大的问题。 因为焦点是在列表上进行运算，haskell写起来更容易看出算法的本质，而不被无关的语法细节所遮避。 ----简单归并排序 import Data.List (splitAt) gu...
haskell 基础题解（20）
可雷曼土的日志
08-05 194
5位数字黑圈 【题目】不同于4位数字，如果是一个5位数，像【问题19】那样运算，最终不会落入一个数字黑洞（0除外），而是在一组数字中不断地循环兜圈子。可以姑且称之为：数字黑圈吧。 请你计算一下，所有的5位数字，一共可能落入多少个数字黑圈。 与【问题19】相比，需要增加处理的是：如何判断一个数字已经落入黑圈。 我们可以在数字链中查找是否已经出现过这个数字，如果是，那必然形成黑圈。而且，我们可以注意到...
haskell 基础题解（23）
可雷曼土的日志
08-09 208
矩阵的旋转 【题目】给定一个矩阵，求它顺时针方向旋转90后的矩阵（注意，不是转置）。 例如，3x4的矩阵，旋转后的效果如下： 如果硬去计算，(i,j) 变换后的坐标，公式还真有点难算。。。。 haskell 擅长组合： 旋转=转置+镜像 旋转 = 转置 + 镜像 旋转=转置+镜像 看代码： ---矩阵旋转 import Data.List (transpose) --- 对一个矩阵，求它的左右...
hasell 基础题解（02）
可雷曼土的日志
07-30 489
斐波那契数列问题 【问题】输出斐波那契数列的前100项 1,1,2,3,5,8,13,… 有些书上是从0开始，0,1,1,2,3,… 这种写法数学上更完美一点吧。 如果用 haskell 来解，有很多方法。先来个其它语言中常用来引入递归的写法。 其实，haskell 中递归是家常便饭，没有递归可以说举步维艰，因为 haskell中没有循环，要想重复一件事，只能递归。 fei :: Int -&gt...
haskell 基础题解（21）
可雷曼土的日志
08-08 250
约瑟夫环 【题目】n 个孩子编号从1到n，顺时针站一圈。从1号孩子开始1,2,3顺时针报数。报到 3 的孩子退出游戏。它的顺时针方向下一个孩子重新开始1,2,3报数。。游戏直到剩下一个孩子，求剩下的这个孩子的编号。 这个问题如果用命令式语言的思考习惯，最先想到的就是模拟。作一个数列，装入1~n 的数，然后，模拟游戏的规则，不断地删去某个元素，直到只剩下一个元素。 haskell 也可以这么做，但这...
haskell 基础题解（15）
可雷曼土的日志
08-02 222
螺旋填充矩阵 【题目】用自然数以螺旋的方式填充一个NxN的方阵。当N=5时，形如： 这个问题对函数式语言是有点小难度。 如果是命令式的，可以建一个数组，不断地赋值，改变数组的状态，最后把数组装满了就OK。但函数式风格没有状态，没有赋值，只有定义而已。。。。 如果仍坚持仿照命令式风格，也可以做。用一个函数，接受旧数组，要填入的数和位置，返回一个新数组就可以了（显然比直接命令式麻烦些）。 实际上，我...
haskell 基础题解（33）
可雷曼土的日志
08-14 235
人民币金额大写 【题目】在打印凭据，签定合同等场合，经常需要把人民币金额用汉字大写。这个需求十分常见，十分重要。但细节多，很容易出错。 请你把一个整数表示的人民币金额转为金额大写 特别要注意，金额中，零的出现，既不能多，也不能少。 例如： 1000000001 -> 壹拾亿零壹 1250030001 -> 壹拾贰亿伍仟零叁万零壹 30050 -> 叁万零伍拾 总体的大规则上并不难...
haskell 基础题解（10）
可雷曼土的日志
08-01 268
打印金字塔1 【题目】在控制台打印如下的星号组成的金字塔图形 这是比较初级的练习题目。解法五花八门。 这里给出的 haskell 的解法，注重函数式的思考模式。 这种思考习惯真的真的很重要！！！ import Data.List (intersperse) xing = [ replicate i '*' | i<-[1,3..] ] kong = [ replicate i ' ' |...
haskell 基础题解（52 最原始加密算法）
可雷曼土的日志
10-09 419
原始加密解密 【题目】相传最早使用密文传递信息的古罗马军队。他们对明文中字母进行移位处理。比如：A向后移2位，就是C，B就变为D，… 最后，Y变成A，Z变成B 收到文件的一方只要向前移动就可以了。 当然，为了增加强度，可以一字一密。就是有一个密码本，比如 (2,3,7)。 它表示，遇到第一个字母后移2位，第2个字母后移3位，第3个字母后移7位，第4个字母后移2位，… 如此循环。 已知了密码本，请...
haskell 基础题解（53）
可雷曼土的日志
09-02 216
车队入栈问题 【题目】编号为 1,2…n 的一个车队，从右向左行驶。道路只能容一辆车通过，无法超车。 中间有个死胡同，作为检查站。所有经过车辆必需入站检查。也可能进行很复杂检查，也可能不检查，入站后，马上出站继续上左边的路行驶。检查站容量很大，且也是单车道。 求这n辆车最后在左边道路上的排列有多少种可能。 很显然，检查站就是一个栈结构，只能在其顶端操作。要么右边的一辆车进入，要么最靠外边的一辆车开...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值