プロジェクトオイラー問16 - sinapusu2002 @ ウィキ

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 の数字和を求めよ.

keta_sum(0,Sum,Sum):-!.
keta_sum(N,Sum,Result):-
	Sum1 is Sum+(N mod 10),
 	N1 is N//10,
	keta_sum(N1,Sum1,Result).

main:-X is 2^1000,
	keta_sum(X,0,Ans),
	write(Ans).