このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1267796762/748
#  【課題】コンピュータを相手にジャンケンをしよう.グー,チョキ,パーのボタンを用意する.いずれかのボタンを押すと,コンピュータの手,勝敗,ユーザの勝ち数,負け数,あいこの数カウントして表示する。なお,コンピュータの手は,乱数を用いてセットすること. 
#   
#  完成図:http://ime.nu/www.dotup.org/uploda/www.dotup.org1350173.jpg 
#        
#  【形態】2.Applet 
#  【期限】1月11日18時まで 
#  【ver】160.21 
#  【補足】丸投げです。よろしくお願いします。 
#   

'コンピュータを相手にジャンケンをしよう.グー,チョキ,パーのボタンを用意する.いずれかのボタンを押すと,コンピュータの手,勝敗,ユーザの勝ち数,負け数,あいこの数カウントして表示する。' :-

いずれかのボタンを押すと(_ユーザの勝ち数,_負け数,_あいこの数) :-
        いずれかのボタンを押すと(0,0,0,_ユーザの勝ち数,_負け数,_あいこの数),

いずれかのボタンを押すと(_ユーザの勝ち数1,_負け数1,_あいこの数1,_ユーザの勝ち数,_負け数,_あいこの数) :-
        write(最初はグー。ジャンケンポン : '),
        ボタンを押す(_グー・チョキ・パー),
        'ジャンケン相手のコンピュータ'(_コンピュータの手),
        いずれかのボタンを押すと(_グー・チョキ・パー,_コンピュータの手,_ユーザの勝ち数1,_負け数1,_あいこの数1,_ユーザの勝ち数,_負け数,_あいこの数).

いずれかのボタンを押すと(_グー・チョキ・パー,_コンピュータの手,_ユーザの勝ち数1,_負け数1,_あいこの数1,_ユーザの勝ち数,_負け数,_あいこの数) :-
        勝ち(_グー・チョキ・パー,_コンピュータの手),
        _ユーザの勝ち数2 is _ユーザの勝ち数1 + 1,
        'コンピュータの手,勝敗,ユーザの勝ち数,負け数,あいこの数カウントして表示する'(_コンピュータの手,勝ち,_ユーザの勝ち数2,_負け数1,_あいこの数1),
        write('最初はグー。ジャンケンポン : '),
        ボタンを押す(_グー・チョキ・パー2),
        ジャンケン相手のコンピュータ(_コンピュータの手2),
        いずれかのボタンを押すと(_グー・チョキ・パー2,_コンピュータの手2,_ユーザの勝ち数2,_負け数1,_あいこの数1,_ユーザの勝ち数,_負け数,_あいこの数).
コンピュータとのジャンケン勝負(_グー・チョキ・パー,_コンピュータの手,_ユーザの勝ち数1,_負け数1,_あいこの数1,_ユーザの勝ち数,_負け数,_あいこの数) :-
        負け(_グー・チョキ・パー,_コンピュータの手),
        _負け数2 is _負け数1 + 1,
        'コンピュータの手,勝敗,ユーザの勝ち数,負け数,あいこの数カウントして表示する'(_コンピュータの手,負け,_ユーザの勝ち数1,_負け数2,_あいこの数1),
        write('最初はグー。ジャンケンポン : '),
        ボタンを押す(_グー・チョキ・パー2),
        ジャンケン相手のコンピュータ(_コンピュータの手2),
        いずれかのボタンを押すと(_グー・チョキ・パー2,_コンピュータの手2,_ユーザの勝ち数1,_負け数2,_あいこの数1,_ユーザの勝ち数,_負け数,_あいこの数).
いずれかのボタンを押すと(_グー・チョキ・パー,_コンピュータの手,_ユーザの勝ち数1,_負け数1,_あいこの数1,_ユーザの勝ち数,_負け数,_あいこの数) :-
        あいこ(_グー・チョキ・パー,_コンピュータの手),
        _あいこ2 is _あいこ1 + 1,
        'コンピュータの手,勝敗,ユーザの勝ち数,負け数,あいこの数カウントして表示する'(_コンピュータの手,あいこ,_ユーザの勝ち数1,_負け数1,_あいこの数2),
        write('最初はグー。ジャンケンポン : '),
        ボタンを押す(_グー・チョキ・パー2),
        ジャンケン相手のコンピュータ(_コンピュータの手2),
        いずれかのボタンを押すと(_グー・チョキ・パー2,_コンピュータの手2,_ユーザの勝ち数1,_負け数1,_あいこの数2,_ユーザの勝ち数,_負け数,_あいこの数).

'ジャンケン相手のコンピュータ'(_グー・チョキ・パー) :-
        Random is (random mod 3) + 1,
        グー・チョキ・パーの選択(Random,_グー・チョキ・パー).

グー・チョキ・パーの選択(1,グー).
グー・チョキ・パーの選択(2,チョキ).
グー・チョキ・パーの選択(3,パー).

勝ち(グー,チョキ).
勝ち(チョキ,パー).
勝ち(パー,グー).

負け(A,B) :-
        \+(勝ち(A,B)),
        \+(あいこ(A,B)).

あいこ(A,A).

'コンピュータの手,勝敗,ユーザの勝ち数,負け数,あいこの数カウントして表示する'(_コンピュータの手,_勝負,_ユーザの勝ち数,_負け数,_あいこの数) :-