Mae向きなブログ

Mae向きな情報発信を続けていきたいと思います。

rightTriangles

無謀にも「Learn You a Haskell for Great Good!」を読み始めました。といっても,英文は斜め読みしながら実行していこうと思います。多分,速い段階で壁にぶつかると思いますが,コツコツやってみます。
今日は,
1. Introduction
2. Starting Out
を斜め読みしてみました。
今日の内容で,一番面白いなと思ったのは,

Prelude> let rightTriangles = [(a,b,c) | c <- [1..10], b <- [1..c], a <- [1..b], a^2 + b^2 == c^2]
Prelude> rightTriangles
[(3,4,5),(6,8,10)]

でしょうか。