{"type":"rich","blog_url":"https://mzp.hatenadiary.org/","author_name":"mzp","title":"State\u30e2\u30ca\u30c9\u3068Continuation\u30e2\u30ca\u30c9","blog_title":"\u307f\u305a\u3074\u30fc\u65e5\u8a18","author_url":"https://blog.hatena.ne.jp/mzp/","width":"100%","version":"1.0","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmzp.hatenadiary.org%2Fentry%2F20070630%2Fmonad\" title=\"State\u30e2\u30ca\u30c9\u3068Continuation\u30e2\u30ca\u30c9 - \u307f\u305a\u3074\u30fc\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>","height":"190","published":"2007-06-30 00:00:00","categories":["Haskell","30\u5206\u30d7\u30ed\u30b0\u30e9"],"provider_url":"https://hatena.blog","description":"30\u5206\u30d7\u30ed\u30b0\u30e9\u30e0\u3001\u305d\u306e70\u3002 State\u30e2\u30ca\u30c9\u3068Continuation\u30e2\u30ca\u30c9\u3092\u52c9\u5f37\u3057\u3088\u3046\u3002 import Control.Monad.State import Control.Monad.Cont randomUpdate :: Int->Int->Int->(Int,Int) randomUpdate p q a = let value = a*p+q in (value,value `mod` 1000) random :: State Int Int random = do seed <- get let (value,seed') = randomUpdate 3 10 seed p\u2026","url":"https://mzp.hatenadiary.org/entry/20070630/monad","provider_name":"Hatena Blog"}