- 473 名前：デフォルトの名無しさん mailto:sage [2010/01/28(木) 06:27:18 ]
- >>426
% Prolog もっと複雑な問題らしい。一応基礎部分ということで。
累乗の計算の逆を行うプログラムの基礎部分(A,A ^ 1) :- atomic(A),!.
累乗の計算の逆を行うプログラムの基礎部分((A * A),A ^ 2) :- atomic(A),!.
累乗の計算の逆を行うプログラムの基礎部分((B * A) * A,A ^ N) :-
累乗の計算の逆を行うプログラムの基礎部分((B * A),A ^ N1),
N is N1 + 1,!.
