haskell 基础题解（42）

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

这篇博客探讨了如何使用Haskell进行Excel列地址的十进制和字母表示法之间的转换。通过理解Excel地址表示法的规律，作者提供了一个不依赖ASCII码的直接转换方法，并展示了如何构造一个无限列表来表示所有可能的列地址。同时，文章讨论了从字母到数字转换的另一种思路，使用函数的复合操作实现。

Excell地址转换

【题目】Excell中，列是用字母来表示的。A表示1, B表示2, … Z 表示26, AA 表示27 …
试编写一个程序， 在Excell列地址的字母表达法和十进制表示法间进行转换。

Excell 的这个表示法很有趣，它不是标准的26进制表示，因为A并不代表0， 也不是单纯的因为起始从0还从1开始的差1问题。
但只要抓住共性即可。高位仍然代表：
本位真值⋅26右边第几位−1 本位真值 \cdot 26 ^ {右边第几位-1} 本位真值⋅26右边第

最低0.47元/天 解锁文章

200万优质内容无限畅学
Haskell 基础题解（01）
可雷曼土的日志
07-30 536
打印九九乘法表 初学 haskell 的关键是：掌握函数式思考问题的技艺 haskell 是纯函数式的语言，它的函数基本与数学上的函数等价： 给同样的输入，总是得到相同的输出。 函数保证没有副作用，除了计算出结果，啥都不做 函数的求值次序无法控制 函数求值是惰性的，只要还没被用到，绝不去求值 要改变现实世界（比如屏幕上的像素点），总要有点副作用才行。haskell 的理念是：把纯函数与有副作用...
haskell 基础题解（54）
可雷曼土的日志
09-03 333
三阶幻方 【题目】把从 1 到 N2N^2N2的整数填入一个N x N 的方阵，如果每行，每列，每个对角线上的数字之和都相等。则称此方阵为幻方。N称为幻方的阶。 求所有的三阶幻方（旋转、镜像后相同的视为同一种情况） 用1 ~ 9 的数字填九宫格，所有的填法就是 1~9 的全排列。 在这个大集合中筛选符合条件的。 对最后的结果去掉重复。 ---- 求所有的三阶幻方 import Data.List ...
haskell 基础题解（39）
可雷曼土的日志
08-19 226
日期问题 【题目】有一类这样的问题，形如： 1949年1月21日 到 2011年5月4日， 一共经过了多少天？ 1981年6月6日后的1000天是什么日期？ 1960年4月1日是星期几？ 从建国到 2019年10月1日，有多少个国庆节是星期日？ … 不管你使用什么语言，请不要调用任何关于日期的现成API，而是自己编码解决上述问题。 实际上，就算允许你调用日期-时间的API，这类问题往往也很棘手。因...
haskell 基础题解（05）
可雷曼土的日志
07-31 280
分解质因数 【题目】给一个数，求它的质因数分解形式 例如：10 = 2 * 2 * 5 看起来需要一个所有质数的表，从小到大，每一个不断去试除那个给定的数，除开了，它就是一个合格的质因数。。。。。 实际上也可以递归地思考，依次从 2,3,4… 中找一个数x去试除N，如果能除开，x收入囊中，然后接着求N/x 的所有质因数就可以了。 之所以不用质数列试除也可以，是因为：假如某个合数可除尽，那么它的质数...
haskell 基础题解（44）
可雷曼土的日志
08-22 264
控制台画圆 【题目】用星号在控制上近似地画出一个圆形 圆是对称的。只要画出一部分就可以复制了。比如先生成右下角的四分之一圆。 取坐标如下图： 让 y 的值在 0 到 R 之间均匀变化，算出相应的 x 值 x=r2−y2 x = \sqrt {r ^ 2 - y ^ 2} x=r2−y2​ 然后，把这部分镜像变换生成整个圆（拼接的边缘可能要修补一下）。 haskell 代码： circleStar...
haskell基础题解（47）
可雷曼土的日志
08-26 271
有理数四则运算 【题目】计算机内的浮点数是一种近似表示法。而我们都知道，除法运算产生的小数，要么是有限的，要么就是无限的循环小数。这会因为硬件的制约而导致精度的损失。在一般情况下不是问题，但在有些特殊场合，是不允许有误差的。 还好，我们知道，有理数可以表示为整数的比值。如果我们直接存储这个比值，而不是小数，对四则运算将不会的精度的损失。 许多的语言都内置了有理数类。请自行设计一个有理数类型，能支持...
haskell 基础题解（31）
可雷曼土的日志
08-13 352
生成全排列 【题目】已知若干字母，求它们所有的可能排列，例如：“abc”的全排列： “abc”,“acb”,“bac”,“bca”,“cab”,“cba” 这个问题用 haskell 解有点作弊。因为 Data.List 中有个现成的：permutations 就是干这个的。 好吧，不用它，我们自己写个，也没几行代码。 ----生成全排列 import Data.List (delete) pe...
haskell 基础题解（49）
可雷曼土的日志
08-27 219
两直线交点 【问题】两点确定一条直线。两直线只要不平行，就一定有唯一的交点。 请编程，输入两组两点的坐标，求这两条直线的交点坐标。 两点(x0,y0) (x1,y1) 所确定的直线形式为 ax + by = c 需要用点坐标来确定参数 a, b, c 的值。实际上有效的信息是两个值。因为上面的方程同时放大一定的倍数仍然成立。这样，（a,b,c）是一组解，不是一个。求出任意一个即可。 点坐标代入，解...
haskell 基础题解（46）
可雷曼土的日志
08-23 223
身份证号码校验 【问题】我们现在使用的身份证号码是18位的。其中最后一位是校验位，它有可能是“X”，代表数字“10”。当某个注册流程让你添身份证号的时候，胡乱凑一些数字是不能通过校验的。原因是这些数字首先需要满足校验规则。 其规则是数字公式表示为： ∑i=118(ai×Wi)≡1(mod11) \sum_{i=1}^{18} \left ( a_{i} \times W_{i}\right ) \...
haskell 基础题解（51）
可雷曼土的日志
08-29 1086
矩阵乘法 【题目】从控制台输入两个整数的矩阵，中间中空行隔开。求这两个矩阵相乘后的矩阵。 对 haskell 而言，这个问题的主要工作就是处理好输入输出的格式问题。 输入可以先变成行的List， 找到 空行位置分为两部分处理。 上代码： import Data.List (transpose) (*.) :: [[Int]] -> [[Int]] -> [[Int]] a *. b ...
haskell 一些练习题
10-10
学校的例子！对于学习haskell很有帮助！
haskell 基础题解（11）
可雷曼土的日志
08-01 201
打印金字塔2 【问题】打印出如下图的金字塔 这个题目与【问题10】很类似。 如果你用其它语言解决过类似的问题，请回议一下： 当已经完成了 10题，再来解这个题的时候，有多少东西可以重用呢？ 我看到很多人都几乎是从头开始了。 为什么？ 因为星号的模式很不同啊，原来的算星号位置、数量的东西都没用了啊，至于输出那点代码重写没什么大工作量啊。 看出问题不？ 解法的核心逻辑缺少通用性！！！ 来看看 has...
haskell 基础题解（15）
可雷曼土的日志
08-02 224
螺旋填充矩阵 【题目】用自然数以螺旋的方式填充一个NxN的方阵。当N=5时，形如： 这个问题对函数式语言是有点小难度。 如果是命令式的，可以建一个数组，不断地赋值，改变数组的状态，最后把数组装满了就OK。但函数式风格没有状态，没有赋值，只有定义而已。。。。 如果仍坚持仿照命令式风格，也可以做。用一个函数，接受旧数组，要填入的数和位置，返回一个新数组就可以了（显然比直接命令式麻烦些）。 实际上，我...
haskell 基础题解（12）
可雷曼土的日志
08-01 334
字母金字塔 【题目】打印输出如下图的字母金字塔 这题目就不能简单地换“花布”了。 可以看到，每行中的样式不是重复，而是某个序列和它的镜像拼起来的。 下面是 haskell 的解法： import Data.List (intersperse) zi_mu = ['A'..] ta = [ take i zi_mu ++ reverse(take (i-1) zi_mu) | i<-...
haskell 基础题解（57）
可雷曼土的日志
09-06 284
整数的划分 【题目】把一个正整数N，可以划分为多个数的和的形式。如果规定划分出来的最小数是1,最大数是它本身，则对给定的N，你能列出它的所有划分形式吗？ 比如：N=4，可以划分为： 1+1+1+1, 1+1+2, 1+3, 2+2, 4 这类问题是haskell 的强项。 问题天然就是一种递归的形式。对于N，如果划出1，则剩下的N-1如何划分？ 如果划出2, 剩下的要求最小划分数字为2, 怎么划分...
haskell 基础题解（38）
可雷曼土的日志
08-19 291
格子内输出 【题目】从控制台输入若干行。每行若干项，由逗号分开。输出时，要求把这些内容放到表格中，并且要居中对齐。 比如：从键盘上输入了： a,bb,ccc aaaa,ccccc a,b,c,ddd aa,ccccccccccccccccc,ee （注意，连续的逗号表示中间的项是空的） （注意，连续输入了两个回车就表示输入线束了） 这时，程序应该输出： 显然，程序需要计算出每个列的宽度。并把每个...
haskell 基础题解（55）
可雷曼土的日志
09-04 163
最大公共子串的长度 【题目】已知两个串s1 和s2，求它们共同的子串中，最大长度是多少。 求的只是最大长度，并不要求找出是哪个子串（或哪些子串），应该比较容易一些。 简单递归处理应该行得通，但效率就没准儿了。 maxSub :: String -> String -> Int maxSub [] _ = 0 maxSub _ [] = 0 maxSub xx@(x:xs) yy@(y:...
haskell 基础题解（25）
可雷曼土的日志
08-09 205
打印大X 【题目】在控制台上输出一个由星号组成的“大X”，要求可以改变笔宽和高度。 当笔宽=3，高度=10的时候，输出如图： 这类的问题，按haskell 的函数组合思路，一般都是先构造一部分，再通过旋转、镜像等变换、组给得出最终的结果。当然，图形有对称性才可以这样。 如果图形没有任何规律呢？。。。。那是个美术问题。。不要编程了吧 ---打印大X big_x :: Int -> Int -...
haskell 基础题解（52 最原始加密算法）
可雷曼土的日志
10-09 425
原始加密解密 【题目】相传最早使用密文传递信息的古罗马军队。他们对明文中字母进行移位处理。比如：A向后移2位，就是C，B就变为D，… 最后，Y变成A，Z变成B 收到文件的一方只要向前移动就可以了。 当然，为了增加强度，可以一字一密。就是有一个密码本，比如 (2,3,7)。 它表示，遇到第一个字母后移2位，第2个字母后移3位，第3个字母后移7位，第4个字母后移2位，… 如此循环。 已知了密码本，请...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值