{"author_name":"amachang","blog_url":"https://amachang.hatenablog.com/","provider_url":"https://hatena.blog","url":"https://amachang.hatenablog.com/entry/20061208/1165526315","width":"100%","categories":["Haskell"],"image_url":null,"title":" \u30e2\u30ca\u30c9\u304c\u5206\u304b\u3089\u306a\u3044","type":"rich","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/amachang/","published":"2006-12-08 06:18:35","version":"1.0","height":"190","blog_title":"IT\u6226\u8a18","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Famachang.hatenablog.com%2Fentry%2F20061208%2F1165526315\" title=\" \u30e2\u30ca\u30c9\u304c\u5206\u304b\u3089\u306a\u3044 - IT\u6226\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u3053\u308c\u304c\u30e2\u30ca\u30c9 main = putStrLn $ unlines $ do v1 <- [1, 2, 3] v2 <- f v1 v3 <- g v2 f v3 f :: Integer -> [String] f x = [show x, show x] g :: String -> [Integer] g x = [read x, read x] \u3088\u304f\u308f\u304b\u3089\u3093\u3002 \u306a\u3093\u304b\u3001\u3082\u3046\u3059\u3053\u3057\u3067\u5206\u304b\u308a\u305d\u3046\u306a\u3093\u3060\u304c\u3002\u3002\u3002\u3046\u30fc\u3093\u3002\u3002\u3002 \u30a4\u30b3\u30fc\u30eb\u3092\u675f\u306d\u3066\u30ac\u30c3\u3068\u3057\u305f\u611f\u3058\u304b\uff1f\u308f\u304b\u3089\u3093\uff01"}