その15(2x2)を追加しました。

倍数になる13進数に挑戦。最初に書いたのはこれです。 main = print $ head $ filter (\n -> (radix_13_10 n `mod` n) == 0) [10..] radix_13_10 :: Int -> Int radix_13_10 0 = 0 radix_13_10 n = (radix_13_10 (n `div` 10)) * 13 + (n `mod` 10) できた、…