いろんな言語で宿題スレ

いろんな言語で宿題ス ..

417:デフォルトの名無しさん
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.

次ページ