2008-04-13から1日間の記事一覧
百万未満の数で、2進表記でも10進表記でも回文になるようなものを全て足し合わせる。 showIntAtBaseという関数を知らず、最初は自分で書いてしまいました。 import Data.Char import Numeric main = print $ sum $ euler036 999999 euler036 :: Int -> [Int]…
百万未満の数で、2進表記でも10進表記でも回文になるようなものを全て足し合わせる。 showIntAtBaseという関数を知らず、最初は自分で書いてしまいました。 import Data.Char import Numeric main = print $ sum $ euler036 999999 euler036 :: Int -> [Int]…