16問目
http://projecteuler.net/index.php?section=problems&id=16
あまり簡単なのでもう1問。
21000の各桁の数字の和を求める。
import Data.Char main = print $ euler016 2 1000 euler016 :: Integer -> Integer -> Int euler016 a n = sum $ map digitToInt $ show $ a ^ n
http://projecteuler.net/index.php?section=problems&id=16
あまり簡単なのでもう1問。
21000の各桁の数字の和を求める。
import Data.Char main = print $ euler016 2 1000 euler016 :: Integer -> Integer -> Int euler016 a n = sum $ map digitToInt $ show $ a ^ n