09/07/09 21:58:45
>>416
% Prolog
t416 :-
read(N),
奇数・偶数判定(N,X),
write_formatted('入力されたのは%tです\n',[X]).
奇数・偶数判定(N,奇数) :- 1 is N mod 2.
奇数・偶数判定(N,偶数) :- 0 is N mod 2.
09/07/09 21:58:45
>>416
% Prolog
t416 :-
read(N),
奇数・偶数判定(N,X),
write_formatted('入力されたのは%tです\n',[X]).
奇数・偶数判定(N,奇数) :- 1 is N mod 2.
奇数・偶数判定(N,偶数) :- 0 is N mod 2.