Haskell例程一：计算直角三角形边长

iteye_12339

于 2009-01-20 17:21:49 发布

阅读量298

点赞数

CC 4.0 BY-SA版权

分类专栏：我喜欢的语言文章标签： Haskell C C++ C#

本文链接：https://blog.youkuaiyun.com/iteye_12339/article/details/81679556

82 篇文章

订阅专栏

本文介绍了一种方法来找出所有三边长度为整数、小于等于10且周长为24的直角三角形。通过设定边界条件并利用勾股定理，最终确定符合条件的三角形为(6,8,10)。

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

如何取得所有三边长度皆为整数且小于等于10，周长为24的直角三角形？首先，把所有三遍长度小于等于10的三角形都列出来：

ghci> let triangles = [ (a,b,c) | c <- [1..10], b <- [1..10], a <- [1..10] ]

刚才我们是从三个List中取值，并且通过输出函数将其组合为一个Triple。只要在ghci下边调用triangle，你就会得到所有三遍都小于等于 10的三角形。我们接下来给它添加一个限制条件，令其必须为直角三角形。同时也考虑上b边要比斜边短，a边要比b边短的情况：

ghci> let rightTriangles = [ (a,b,c) | c <- [1..10], b <- [1..c], a <- [1..b], a^2 + b^2 == c^2]

已经差不多了。最后，修改函数，告诉它只要周长为24的三角形。

ghci> let rightTriangles' = [ (a,b,c) | c <- [1..10], b <- [1..c], a <- [1..b], a^2 + b^2 == c^2, a+b+c == 24]  

ghci> rightTriangles'  

[(6,8,10)]