{"width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fjeneshicc.hatenadiary.org%2Fentry%2F20090118%2F1232256681\" title=\"Problem 178 - \u843d\u66f8\u304d\u3001\u6642\u3005\u843d\u5b66\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","url":"https://jeneshicc.hatenadiary.org/entry/20090118/1232256681","version":"1.0","published":"2009-01-18 14:31:21","author_name":"jeneshicc","description":"http://projecteuler.net/index.php?section=problems&id=178 \u72b6\u614b\u3067\u8003\u3048\u308b\u3068\u72b6\u614b\u306f\u4eca\u307e\u3067\u306e\u6700\u5c0f\u6570\u5b57\u3001\u6700\u5927\u6570\u5b57\u3001\u6700\u5f8c\u306e\u6570\u5b57\u3067\u8868\u73fe\u3067\u304d\u308b\u3002 \u72b6\u614b\u6570\u306f\u9ad8\u300510^3\u3002 import Data.Map (Map,unionWith,filterWithKey,mapKeysWith,fold,fromList) type State = (Int,(Int,Int)) up,down :: State -> State up (d,(l,u)) = (d+1,(l,max u $ d+1)) down (d,(l,u)) = (d-1,(min l \u2026","blog_url":"https://jeneshicc.hatenadiary.org/","categories":["Project Euler","Haskell"],"title":"Problem 178","provider_url":"https://hatena.blog","height":"190","provider_name":"Hatena Blog","blog_title":"\u843d\u66f8\u304d\u3001\u6642\u3005\u843d\u5b66","type":"rich","author_url":"https://blog.hatena.ne.jp/jeneshicc/","image_url":null}