{"provider_name":"Hatena Blog","version":"1.0","blog_url":"https://wvogel00.hatenadiary.org/","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/wvogel00/","categories":["Haskell"],"description":"ttp://judge.u-aizu.ac.jp/onlinejudge/description.jsp?id=0502 \u306b\u3042\u308b\u554f\u984c\u3002 \u672c\u6765\u306f\u3001\u9023\u7d9a\u3057\u3066\u5165\u529b\u3092\u53d7\u3051\u4ed8\u3051\u308b\u306e\u3067\u3059\u304c\u3001\u305d\u308c\u306f\u611b\u5b0c\u3002\u30ea\u30b9\u30c8\u3060\u3051\u3067\u3082\u89e3\u3051\u308b\u3051\u308c\u3069\u3001State\u30e2\u30ca\u30c9\u306e\u7df4\u7fd2\u304c\u3066\u3089\u3002 import Control.Monad.State type PlayState = ([Int],Int) type DiceSum = Int start = ([1,2,3,4,5,6],1) main = do n <- getLine cs <-getContents print $ evalState (dice.take (read\u2026","published":"2011-09-05 17:49:12","image_url":null,"blog_title":"wvogel\u65e5\u8a18","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwvogel00.hatenadiary.org%2Fentry%2F20110905%2F1315212552\" title=\"AOJ try!(3) - wvogel\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":"AOJ try!(3)","type":"rich","width":"100%","author_name":"wvogel00","url":"https://wvogel00.hatenadiary.org/entry/20110905/1315212552"}