15 lines
453 B
Haskell
15 lines
453 B
Haskell
import Data.Char (digitToInt)
|
|
|
|
-- 计算 b^n 的各位数字之和
|
|
powerDigitSum :: Integer -> Integer -> Integer
|
|
powerDigitSum b n = sum . map digitToInt . show $ b ^ n
|
|
|
|
-- 示例使用
|
|
main :: IO ()
|
|
main = do
|
|
-- 测试用例
|
|
print $ powerDigitSum 2 15 -- 32768 → 3+2+7+6+8 = 26
|
|
print $ powerDigitSum 10 100 -- 1后跟100个0 → 1
|
|
print $ powerDigitSum 3 3 -- 27 → 2+7 = 9
|
|
print $ powerDigitSum 2 1000
|