プロジェクトオイラー問16

Problem 16 「累乗の各桁の和」 †

215 = 32768 であり, これの各桁の和は 3 + 2 + 7 + 6 + 8 = 26 となる.

同様にして, 21000 の各桁の和を求めよ.

http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2016

解法
Ｐｒｏｌｏｇ言語

sum([],0):-!.

sum([X|Xs],Result):-

!,

sum(Xs,Re),

Result is Re+X-48.

main16:-

X is 2^1000,

number_codes(X,List),

sum(List,Ans),

      write(Ans).