このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1269438098/837
#  大学の課題です。何度修正してコンパイルしてもエラーになります。教えてください。 
#  問題:キーボードから三個の値x[0]、x[1]、x[2]を入力する。 キーボードからyの値を入力する。 
#  x[0]、x[1]、x[2]の中にyと同じ値があれば『○』と出力し、なければ『×』と表示する。 
#   

'キーボードから三個の値x[0]、x[1]、x[2]を入力する。キーボードからyの値を入力する。x[0]、x[1]、x[2]の中にyと同じ値があれば『○』と出力し、なければ『×』と表示する' :-
        'キーボードから三個の値x[0]、x[1]、x[2]を入力する。'(L),
        'キーボードからyの値を入力する。'(Y),
        'x[0]、x[1]、x[2]の中にyと同じ値があれば『○』と出力し、なければ『×』と表示する。'(Y,L).

'キーボードから三個の値x[0]、x[1]、x[2]を入力する。'(L) :-
        write('三個の値x[0]、x[1]、x[2]をカンマ区切りで入力してください : '),get_line(Line),
        split(Line,[','],L).

'キーボードからyの値を入力する。'(Y) :-
        write('Yの値を入力してください : '),
        get_integer(Y).

'x[0]、x[1]、x[2]の中にyと同じ値があれば『○』と出力し、なければ『×』と表示する。',(Y,L) :-
        同じ値があれば(Y,L),
        '『○』と出力',!.
'x[0]、x[1]、x[2]の中にyと同じ値があれば『○』と出力し、なければ『×』と表示する。',(Y,L) :-
        'なければ'(Y,L),
        『×』と表示する。',!.

同じ値があれば(Y,L) :- member(Y,L).

'なければ'(Y,L) :- \+(member(Y,L)).

'『○』と出力' :-
        write('○\n').

'『×』と表示する。' :-
        write('×\n').