Symbol(clack:cancel)

solutions/0000_0029/0016.PowerDigitSum/eular_16.hs

@@ -0,0 +1,14 @@
+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