http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2016 *Problem 16 「累乗の各桁の和」 † 2＾15 = 32768 であり, これの各桁の和は 3 + 2 + 7 + 6 + 8 = 26 となる. 同様にして, 2＾1000 の各桁の和を求めよ. 解法 ２＾1000を計算して各桁の和をとるだけです。 何か賢い方法はあるのでしょうか？ calc(0,0):-!. calc(X,Result):- Add is X mod 10, X1 is X//10, calc(X1,Re), Result is Re+Add. main16:- X is 2^1000, calc(X,Ans), write(Ans).
