Perl コーディング初心者質問コーナー Part26

[0193 nobodyさん 03/07/28 22:53 ID:???]

print "じゃんけん（１＝ぐー、２＝ぱー、３＝ちょき）\n";
<>;
print ('勝ち', '負け')[int rand 2];