読者です 読者をやめる 読者になる 読者になる

PEをMathematicaで

Project Eulerに挑戦してみよう

Project Euler 19 / 日曜はじまりの月

次の情報が与えられている。

  • 1900年1月1日は月曜日である
  • 9月, 4月, 6月, 11月は30日まであり,2月を除く他の月は31日まである
  • 2月は28日まであるが,うるう年のときは29日である
  • うるう年は西暦が4で割りきれる年に起こる。しかし,西暦が400で割りきれず100で割りきれる年はうるう年でない

20世紀(1901年1月1日から2000年12月31日)中に月の初めが日曜日になるのは何回あるか?

Problem 19 - Project Euler

曜日は DayOfWeek で取り出せます。たとえば 2017年1月1日は日曜日でした。

ためしに2017年に日曜はじまりの月がいくつあるか調べてみましょう。1月と10月の2回です。

ループを一段増やしておしまい。