このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1245853701/826
# [1] 授業単元: 宿題
# [2] 問題文(含コード&リンク): 整数を入力し、奇数か偶数かを判断するプログラム

t416 :-
    read(N),
    integer(N),
    奇数・偶数判定(N,X),
    write_formatted('入力されたのは%tです\n',[X]),!.
t416 :- write('正しい整数が得られませんでした\n').

奇数・偶数判定(N,奇数) :- 1 is N mod 2.
奇数・偶数判定(N,偶数) :- 0 is N mod 2.