2009-11-22から1日間の記事一覧

Project Euler Problem 19

問題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)) …