このディレクトリの索引
#  
#  グーを0、チョキを1、パーを2とし、ユーザは自分の出す手をキーボードから入力する。
#  

'グーを0、チョキを1、パーを2とし、ユーザは自分の出す手をキーボードから入力する。'(_自分の出す手) :-
        'ユーザは自分の出す手をキーボードから入力する。'(_自分の出す手の入力値),
        'グーを0、チョキを1、パーを2とし、'(_自分の出す手,_自分の出す手の入力値),!.


'グーを0、チョキを1、パーを2とし、'(_自分の出す手,_自分の出す手の入力値) :-
        グーを0(_自分の出す手,_自分の出す手の入力値).
'グーを0、チョキを1、パーを2とし、'(_自分の出す手,_自分の出す手の入力値) :-
        チョキを1(_自分の出す手,_自分の出す手の入力値).
'グーを0、チョキを1、パーを2とし、'(_自分の出す手,_自分の出す手の入力値) :-
        パーを2(_自分の出す手,_自分の出す手の入力値).

グーを0(グー,0).

チョキを1(チョキ,1).

パーを2(パー,2).

'ユーザは自分の出す手をキーボードから入力する。'(_自分の出す手の入力値) :-
        キーボードから(_キーボードの入力ストリーム),
        get_line(_キーボードの入力ストリーム,Line),
        atom_number(Line,_自分の出す手の入力値).
'ユーザは自分の出す手をキーボードから入力する。'(_自分の出す手の入力値) :-
        'ユーザは自分の出す手をキーボードから入力する。'(_自分の出す手の入力値).

キーボードから(user_input).