このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1263824755/233
#  [1] 授業単元:プロトタイプ宣言とか引数  
#  [2] 問題文(含コード&リンク): 入力された数字が偶数なら、trueを返す関数。それ以外ならfalse 
#  ()の中に何か入るらしいです () even(int sc) {  
#  
% 「それ以外なら」をどう述語として表現するか?

入力された数字が偶数なら、trueを返す関数。それ以外ならfalse(_評価結果) :-
        write('数字を入力してください : '),
        get_integer(_入力された数字),
        入力された数字が偶数なら、trueを返す関数。それ以外ならfalse(_入力された数字,_評価結果).

入力された数字が偶数なら、trueを返す関数。それ以外ならfalse(_入力された数字,_評価結果) :-
        入力された数字が偶数なら、trueを返す(_入力された数字,_評価結果),!.
入力された数字が偶数なら、trueを返す関数。それ以外ならfalse(_入力された数字,_評価結果) :-
        それ以外ならfalse(_入力された数字,_評価結果).

入力された数字が偶数なら、trueを返す(_入力された数字,_評価結果) :-
        偶数(_入力された数字),
        _評価結果 = true,!.

それ以外ならfalse(_入力された数字,_評価結果) :-
        \+(偶数(_入力された数字)),
        _評価結果 = false.

偶数(N) :-
        integer(N),
        0 is N mod 2.