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

morris555's diary

高校生のブログです。

Problem 4

haskell Project Euler

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のいいところですね。