{"provider_name":"Hatena Blog","author_name":"Pocket7878_dev","author_url":"https://blog.hatena.ne.jp/Pocket7878_dev/","blog_url":"https://tech-blog.pocket7878.com/","description":"Haskell\u3067\u5358\u8abf\u306b import Data.List isLeapYear :: Int -> Bool isLeapYear y | (y `mod` 4 == 0 && (not (y `mod` 400 /= 0 && y `mod` 100 == 0))) = True | otherwise = False dayList :: Int -> [Int] dayList y | isLeapYear y = [31]++[29]++[31,30,31,30,31,31,30,31,30,31] | otherwise = [31]++[28]++[31,30,31,30,31,3\u2026","version":"1.0","url":"https://tech-blog.pocket7878.com/entry/20120720/1342751974","title":"Project Eular Problem 19","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftech-blog.pocket7878.com%2Fentry%2F20120720%2F1342751974\" title=\"Project Eular Problem 19 - Let&#39;s write \u03b2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","provider_url":"https://hatena.blog","categories":[],"blog_title":"Let's write \u03b2","published":"2012-07-20 11:39:34","height":"190","type":"rich","image_url":null}