こちらのブログより引用した。 http://blog.netswitch.jp/2008/02/19/haskell-do-notation test = do x <- [1, 2] y <- [1, 2] return [x, y] test = [1, 2] >>= (\x -> [1, 2] >>= (\y -> return [x, y])) 実行結果 Main> test [[1,1],[1,2],[2,1],[2,2]] …

http://projecteuler.net/problem=91 http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2091O(0,0), P(x1,y1), Q(x2,y2) 0 三角形OPQで異なる直角三角形は何個作れるか? 次のコードは自分で書いたもの。原点Oが直角になる場合とそうで…