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

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

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

入力された数字が偶数なら(_入力された数字) :-
        偶数(_入力された数字).

それ以外なら(_入力された数字) :-
        \+(偶数(_入力された数字)).

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