如何取得所有三边长度皆为整数且小于等于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)]
分享到:
相关推荐
haskell短语手册:Haskell短语手册:通过小的带注释的示例程序快速介绍Haskell
安装 Haskell 的说明 这些说明适用于 GHC 7.8.4,并将与最新发布的 GHC 版本保持同步。 为什么会有这套指令? 为什么会有这套关于如何在您的计算机上安装 Haskell 的说明? 的官方网站还不够吗? 可悲的是,现在...
haskell-wasm:Haskell WebAssembly工具包
出色的haskell赞助::heart_with_ribbon:Haskell简介赞助
haskell-book::rocket:我对Haskell Book练习的解决方案!
haskell-mooc:Haskell MOOC赫尔辛基大学
Haskell.pl 波兰Haskell网站: 基于Haskell主要网站:
haskell-tools:Haskell的开发人员工具
haskell.nix:Nixpkgs的替代Haskell基础结构
opentelemetry-haskell:OpenTelemetry Haskell客户端https:opentelemetry.io
template-haskell-project:haskell项目的模板
haskell-do::pencil2:-Haskell代码编辑器专注于交互式开发
haskell-opencv:Haskell绑定到OpenCV-3.x
haskell ghc插图:haskell ghc插图
haskell-multihash:Multihash Haskell实现
aws-lambda-haskell-runtime::high_voltage:AWSLambda的Haskell运行时
Haskell-Practice:Haskell脚本练习
haskell-socket:绑定到POSIX套接字API的Haskell
欧拉·哈斯克尔计划Haskell解决方案:projecteuler.net
haskell-tetris:使用ncurses用Haskell编写的俄罗斯方块游戏