4日目です。今回はProblem 4を…
「3桁の数の積で表される回文数のうち最大のものはいくらになるか。」って問題ですね。
isPalindromic n = (show n) == reverse (show n)
main = print . maximum $ [x | x <- [y * z | y <- [100..999], z <- [y..999]], isPalindromic x]
思いついたままに書いたので、総当りで、しかもmaximumを使ってるので遅いですね。
でも、思いついたままに書いて答えが出せちゃうところがHaskellのいいところですね。