こちらのブログより引用した。 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]] …