{"image_url":null,"provider_name":"Hatena Blog","title":" Project Euler Problem 19","author_name":"ancient-v","author_url":"https://blog.hatena.ne.jp/ancient-v/","type":"rich","blog_url":"https://ancient-v.hatenadiary.org/","published":"2009-11-22 22:50:34","width":"100%","url":"https://ancient-v.hatenadiary.org/entry/20091122/1258897834","height":"190","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fancient-v.hatenadiary.org%2Fentry%2F20091122%2F1258897834\" title=\" Project Euler Problem 19 - \u601d\u3044\u3064\u3044\u305f\u3089\u66f8\u304f\u65e5\u8a18 Ex\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u554f\u984c19: 1900/1/1\u306f\u6708\u66dc\u65e5\u3067\u3042\u308b\u3002\u3067\u306f20\u4e16\u7d00\u3067\u6708\u306e\u521d\u3081\u304c\u65e5\u66dc\u65e5\u306b\u306a\u308b\u306e\u306f\u4f55\u56de\u3042\u308b\u304b\u3002[=>\u554f\u984c\u6587] \u554f\u984c19\u306e\u89e3\u7b54 ;; Emacs Lisp (defun problem019 () (let* ((table [31 31 28 31 30 31 30 31 31 30 31 30]) (day (- (1+ 365) (aref table 0))) (count 0)) (do ((y 1901 (1+ y))) ((< 2000 y)) (let ((is-leap (zerop (% y 4)))) (do ((m 1 (1+ m))) ((< 12 m)) (incf\u2026","version":"1.0","categories":["Project Euler"],"blog_title":"\u601d\u3044\u3064\u3044\u305f\u3089\u66f8\u304f\u65e5\u8a18 Ex"}