このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1309076891/961
#  【課題】ttp://www.dotup.org/uploda/www.dotup.org3000377.txt.html 
#  【形態】1. Javaアプリケーション(main()で開始) 
#  【GUI】4. 制限なし 
#  【期限】提出期限:5月21日 22時まで 
#  【Ver】java version "1.7.0_03"  
#  【 補足 】Java初心者なので教えていただけると幸いです。  
# 
#  Janken.java
#  
#  switch構文を使用して、じゃんけんの勝敗を決めるプログラムを作る。
#  グー、チョキ、パーを、それぞれchar型の値'G' 'C' 'P'で表す。
#  char型の変数 p1 と p2 にキーボードからG,C,Pのいずれかを入力し代入する。
#  結果の表示はどちらがどちらに勝ったか、また引き分けか、表示する。
#  (重要)
#  条件演算子を用いて、Janken.javaのswitch文をできるだけ少なくでお願いします。
#  

じゃんけんの勝敗を決める :-
        'キーボードからG,C,Pのいずれかを入力する'(_P1,_P2),
        '結果の表示はどちらがどちらに勝ったか、また引き分けか、表示する'(_P1,_P2).

'キーボードからG,C,Pのいずれかを入力する'(_P1,_P2) :-
        ジャンケンの入力(_P1),
        ジャンケンの入力(_P2).

'ジャンケンの入力'(_P1) :-
        write('P1? '),
        get_char(_P1),
        'ジャンケンの入力診断'(_P1),!.
'ジャンケンの入力'(_P1) :-
        'ジャンケンの入力'(_P1).

'ジャンケンの入力診断'('G').
'ジャンケンの入力診断'('C').
'ジャンケンの入力診断'('P').

'結果の表示はどちらがどちらに勝ったか、また引き分けか、表示する'(_P1,_P2) :-
        '結果の表示はどちらがどちらに勝ったか、また引き分けか'(_P1,_P2,_結果),
        writef('%t\n',[_結果]).

'結果の表示はどちらがどちらに勝ったか、また引き分けか'(_P,_P,'引き分けです') :- !.
'結果の表示はどちらがどちらに勝ったか、また引き分けか'(_P1,_P2,'P1の勝ちです').
        append(_,[_P1,_P2|_],['G','C','P','G']),!.
'結果の表示はどちらがどちらに勝ったか、また引き分けか'(_,_,'P2の勝ちです').