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

Haskell で Project Euler を解く素人遊び

Problem 5

1から20までのすべての数で割り切れる最小の数を求める

Project Euler たまにこういうプログラミング不要の問題が出る。

一応方針らしきものを述べると、pn (pは素数、nは自然数)が20以下となるべきを全て掛けあわせれば良い。数が大きい場合はプログラムを書かざるを得ないが、20以下の素数は2,3,5,7,11,13,17,19しかないので
24 = 16 < 20, 25 = 32 > 20
32 = 9 < 20, 33 = 27 > 20
51 = 5 < 20, 52 = 25 > 20

ということだけ分かっていれば、答えは自ずから明らかである。

おしまい☆