紙媒体で知識や経験を管理すると無くなりがちなのでブログで管理することにしました.
      殆どの記事は自分自身のためだけに書いているため,他人に見せる前提の内容, 文章ではありません.
      また, ブログのコメント欄を解放していたらbotからの迷惑行為を受けたため現在コメント欄は解放しておりません.

【Haskell】直角三角形を見つける

条件は

  • 3辺の長さは整数
  • 各辺の長さは10以下([1..10])
  • 周囲の長さは24(a+b+c == 24)

cを斜辺とすると, aはcよりも小さいのでcの長さ以下のみをaの探索範囲とすればよい.
またbを同じ条件で探索してしまうと, aと重複して探索してしまうため, b

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