のてすきあ − 完全独習非プログラマー −

Haskell で Project Euler を解く素人遊び

2020-04-14から1日間の記事一覧

Problem 21

10,000未満の友愛数を全て足すといくつになるか 友愛数とは数のペアで、自分自身を除く約数の和がお互いに等しいものをいう。 まずは何も考えずにスタンダードに攻めてみる。 これで任意の数の約数の和が求められるので、あとは [1..10000] をfilter [友愛数…

Problem 20

100! の各桁を数の合計を求める またしても僕らのIntegerの恩恵を受ける問題である。むしろそのために全く面白みのない問題となってしまったと言えるだろう。唯一のトピックスは、Data.Char.digitToIntの出番ということだろうか。 秒殺☆

Problem 19

20世紀(1901.1.1 - 2000.12.31)において、1日が日曜日となる月は何回あるか うるう年は4年に1回と思いがちだが、実際は400年に99回という壮大かつ半端な周期である。僕達はミレニアムのうるう年を過ごしたが、実は400年に1度の貴重な「400で割れる年」だっ…