>>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,!.