プロジェクトオイラー問２９ - c21coterie @ ウィキ

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

Problem 29 「個別のべき乗」 †

a^bで
2<=a,b<=100を考えるとき重複を排除すると何通りの数が作れるか？

解法
とりあえずプルートゥーズな方法で実装してみました。
全部求めて重複削除、それだけです。

calc(C):-
	between(2,100,A),
 	between(2,100,B),
	C is A^B.

main29:-
	findall(PowAB,calc(PowAB),PowABs),
        list_to_set(PowABs,PowABs1),
	length(PowABs1,Ans),
	write(Ans).