Project Euler 16
euler16 :: Integer -> Integer euler16 n | n < 10 = n | otherwise = (n`mod`10) + (euler16 (n `div`10)) main = print $ euler16 (2^1000)
実行結果
1366
euler16 :: Integer -> Integer euler16 n | n < 10 = n | otherwise = (n`mod`10) + (euler16 (n `div`10)) main = print $ euler16 (2^1000)
実行結果
1366