%%   知識情報処理実習 r2練習問題 解答例

% 1.
pow2(0,1).
pow2(X,Y) :- X1 is X-1, pow2(X1,Y1), Y is 2*Y1.

test2_1(Y) :- pow2(5,Y).

% 2.
%rem3(0,0). べた書する場合 X<3 のかわりにこの3行になる
%rem3(1,1).
%rem3(2,2).
rem3(X,X) :- X<3.
rem3(X,Z) :- X1 is X-3, rem3(X1,Z).

test2_2(Y) :- rem3(5,Y).