ancient-v https://blog.hatena.ne.jp/ancient-v/ 思いついたら書く日記 Ex https://ancient-v.hatenadiary.org/ Project Euler 問題19: 1900/1/1は月曜日である。では20世紀で月の初めが日曜日になるのは何回あるか。[=>問題文] 問題19の解答 ;; 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… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fancient-v.hatenadiary.org%2Fentry%2F20091122%2F1258897834" title=" Project Euler Problem 19 - 思いついたら書く日記 Ex" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-11-22 22:50:34 rich https://ancient-v.hatenadiary.org/entry/20091122/1258897834 1.0 100%