{"type":"rich","title":"Problem 163","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fjeneshicc.hatenadiary.org%2Fentry%2F20081231%2F1230729233\" title=\"Problem 163 - \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>","categories":["Project Euler","Haskell"],"width":"100%","description":"http://projecteuler.net/index.php?section=problems&id=163 \u4e09\u89d2\u5f62\u306e\u6570\u3092\u6570\u3048\u308b\u7c21\u5358\u306a\u304a\u4ed5\u4e8b\u3002 \u305d\u3093\u306a\u306b\u7c21\u5358\u3067\u306f\u306a\u3044\u304c\u3002 m = 36 layer n = tail.concat $ [map (<+>(6*n-k,k)) grid| k<-[0,6..6*n]]++[[(6*(n+1),0)]] where grid = [(4,-2),(0,3),(0,6),(2,2),(3,0),(3,3)] onLine x y = any (prallel (x <-> y)).map head.line $ x <%> 6 where pral\u2026","blog_title":"\u843d\u66f8\u304d\u3001\u6642\u3005\u843d\u5b66","version":"1.0","provider_url":"https://hatena.blog","height":"190","published":"2008-12-31 22:13:53","image_url":null,"url":"https://jeneshicc.hatenadiary.org/entry/20081231/1230729233","author_name":"jeneshicc","blog_url":"https://jeneshicc.hatenadiary.org/","author_url":"https://blog.hatena.ne.jp/jeneshicc/"}