haskell 基础题解（49）

最新推荐文章于 2019-10-09 15:32:00 发布
最新推荐文章于 2019-10-09 15:32:00 发布
阅读量179 收藏 1
点赞数
分类专栏： HASKELL
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ggyhang/article/details/100097505
版权
使用Haskell编程解决数学问题，通过输入两组两点坐标确定直线并找到它们的交点。当两条直线不平行时，存在唯一交点。通过代入点坐标求解二元一次方程组，利用Haskell的Maybe类型处理无解情况，表示可能的解为Nothing或Just (x, y)坐标对。" 111854214,5554265,优化MySQL性能：创建高效索引策略,"['数据库理论', '索引', 'sql']
摘要由CSDN通过智能技术生成

两直线交点

【问题】两点确定一条直线。两直线只要不平行，就一定有唯一的交点。
请编程，输入两组两点的坐标，求这两条直线的交点坐标。

两点(x0,y0) (x1,y1) 所确定的直线形式为 ax + by = c
需要用点坐标来确定参数 a, b, c 的值。实际上有效的信息是两个值。因为上面的方程同时放大一定的倍数仍然成立。这样，（a,b,c）是一组解，不是一个。求出任意一个即可。

点坐标代入，解二元一次方程得：
a = y 1 − y 0 b = x 0 − x 1 c = x 0 y 1 − y 0 x 1 \begin{aligned} &a = y_1 - y_0 \\ &b = x_0 - x_1 \\ &c = x_0 y_1 - y_0 x_1 \end{aligned} ​a=y1​−y

最低0.47元/天 解锁文章
可雷曼土
关注
专栏目录
haskell 基础题解（20）
可雷曼土的日志
08-05 166
5位数字黑圈 【题目】不同于4位数字，如果是一个5位数，像【问题19】那样运算，最终不会落入一个数字黑洞（0除外），而是在一组数字中不断地循环兜圈子。可以姑且称之为：数字黑圈吧。 请你计算一下，所有的5位数字，一共可能落入多少个数字黑圈。 与【问题19】相比，需要增加处理的是：如何判断一个数字已经落入黑圈。 我们可以在数字链中查找是否已经出现过这个数字，如果是，那必然形成黑圈。而且，我们可以注意到...
haskell 基础题解（03）
可雷曼土的日志
07-30 300
素数问题 【题目】 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来解线性方程
weixin_30387423的博客
06-29 153
原文地址（需要翻墙） Solving systems of linear equationsinHaskell Haskell isn’t normally used for things like this, but it’s quite possible to solve systems of linear equations with Haskell. There ...
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],...
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 基础题解（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基础题解（47）
可雷曼土的日志
08-26 237
有理数四则运算 【题目】计算机内的浮点数是一种近似表示法。而我们都知道，除法运算产生的小数，要么是有限的，要么就是无限的循环小数。这会因为硬件的制约而导致精度的损失。在一般情况下不是问题，但在有些特殊场合，是不允许有误差的。 还好，我们知道，有理数可以表示为整数的比值。如果我们直接存储这个比值，而不是小数，对四则运算将不会的精度的损失。 许多的语言都内置了有理数类。请自行设计一个有理数类型，能支持...
haskell 基础题解（61）
可雷曼土的日志
09-20 373
最大子组和 【题目】已知一个整数数组（可能有正数，也有负数），求它的一个连续的子数组，要求该子数组的和为最大。这样的问题称为最大子组和问题。 如果用最普通的解法，考虑所有可能的子数组，分别对其求和，再从这些和中取最大的一个就行了。其时间复杂度为 O(n)。 haskell 实现这种想法也很容易： import Data.List (tails,inits) maxSub :: [Int] -&g...
haskell 基础题解（16）
可雷曼土的日志
08-02 174
打印菱形 【题目】打印输出一个边长为 N 的菱形，当N=5时，如图： 用函数式的想法，不会仔细去安排每个星号的位置和空格的数目。 它首先会注意到对称性。 只工造出了它的四分之一，再变换拼接即可。 代码很短： base n = [ replicate i ' ' | i<-[0..n] ] left n = zipWith (\x y-> x ++ "*" ++ y) (base n)...
haskell 基础题解（30）
可雷曼土的日志
08-13 262
小数循环节 【问题】 我们都会手算除法，比如：123除以13。 当然，有的时候会出现无限循环小数。 1 请模拟手算除法的过程，计算a除以b的小数后100位。 2 发现无限循环小数的循环节，并标识出来。 比如：123除以13，表示为： 9.[461538] 这个题目要求我们模拟手算除法的过程。初看，用命令式的思考更直观，但因为要保存处理计算的过程，也并不占便宜。。。。 换用 haskell 呢？ 如...
haskell 基础题解（24）
可雷曼土的日志
08-09 264
归并排序 【题目】归并排序是在两个已经排序的队列中，不断取队头最小的来完成排序的一种算法。试模拟其 merge 算法。 这个问题用 haskell 解决很容易。haskell 的惰性又可以免去我们考虑队列过大的问题。 因为焦点是在列表上进行运算，haskell写起来更容易看出算法的本质，而不被无关的语法细节所遮避。 ----简单归并排序 import Data.List (splitAt) gu...
haskell 基础题解（23）
可雷曼土的日志
08-09 178
矩阵的旋转 【题目】给定一个矩阵，求它顺时针方向旋转90后的矩阵（注意，不是转置）。 例如，3x4的矩阵，旋转后的效果如下： 如果硬去计算，(i,j) 变换后的坐标，公式还真有点难算。。。。 haskell 擅长组合： 旋转=转置+镜像 旋转 = 转置 + 镜像 旋转=转置+镜像 看代码： ---矩阵旋转 import Data.List (transpose) --- 对一个矩阵，求它的左右...
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 基础题解（29）
可雷曼土的日志
08-12 258
祖冲之割圆法 【题目】南北朝时，我国数学家祖冲之首先把圆周率值计算到小数点后六位，比欧洲早了1100年！他采用的是称为“割圆法”的算法，实际上已经蕴含着现代微积分的思想。 他的方法是从正六边形开始，不断地让边数翻倍，边数越多，多边形边长越接近圆的周长。 割圆后，新的边长与原边长的关系，可以用勾股定理给出。如下图： 试用此法编程求圆周率。 根据前一次的值生成下一个值在 haskell 中可以抽象为...
haskell 基础题解（21）
可雷曼土的日志
08-08 222
约瑟夫环 【题目】n 个孩子编号从1到n，顺时针站一圈。从1号孩子开始1,2,3顺时针报数。报到 3 的孩子退出游戏。它的顺时针方向下一个孩子重新开始1,2,3报数。。游戏直到剩下一个孩子，求剩下的这个孩子的编号。 这个问题如果用命令式语言的思考习惯，最先想到的就是模拟。作一个数列，装入1~n 的数，然后，模拟游戏的规则，不断地删去某个元素，直到只剩下一个元素。 haskell 也可以这么做，但这...
haskell 基础题解（17）
可雷曼土的日志
08-02 207
冒泡排序 【题目】一行输入若干整数，用冒泡法排序，然后输出排序后的数字。 冒泡排序的一趟排序是：从左到右扫描，相邻两个元素小的交换到左边。 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-...
haskell 基础题解（33）
可雷曼土的日志
08-14 199
人民币金额大写 【题目】在打印凭据，签定合同等场合，经常需要把人民币金额用汉字大写。这个需求十分常见，十分重要。但细节多，很容易出错。 请你把一个整数表示的人民币金额转为金额大写 特别要注意，金额中，零的出现，既不能多，也不能少。 例如： 1000000001 -> 壹拾亿零壹 1250030001 -> 壹拾贰亿伍仟零叁万零壹 30050 -> 叁万零伍拾 总体的大规则上并不难...
haskell 基础题解（10）
可雷曼土的日志
08-01 243
打印金字塔1 【题目】在控制台打印如下的星号组成的金字塔图形 这是比较初级的练习题目。解法五花八门。 这里给出的 haskell 的解法，注重函数式的思考模式。 这种思考习惯真的真的很重要！！！ import Data.List (intersperse) xing = [ replicate i '*' | i<-[1,3..] ] kong = [ replicate i ' ' |...
haskell 基础题解（52 最原始加密算法）
可雷曼土的日志
10-09 382
原始加密解密 【题目】相传最早使用密文传递信息的古罗马军队。他们对明文中字母进行移位处理。比如：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、付费专栏及课程。

余额充值