#!/usr/bin/env perl

use strict;
use warnings;

# 履歴を格納する配列
my (@jibun, @aite, @kekka);

# 乱数の初期化
srand(time|$$);

for my $i (1..3) {
    my $jibun = -1;
    my $aite  = int(rand(3)); # 乱数で0〜2を生成
    my $kekka_jp = undef;

    chomp($jibun = <STDIN>);
    
    my $kekka = (3 + $jibun - $aite) % 3;
    if    ($kekka == 0) {
	print "あいこです\n";
	$kekka_jp = "あいこ";
    }    
    elsif ($kekka == 1) {
	print "負けです\n";
	$kekka_jp = "負け";
    }    
    elsif ($kekka == 2) {
	print "勝ちです\n";
	$kekka_jp = "勝ち";
    }

    # 履歴を保存します
    $jibun[$i] = $jibun;
    $aite[$i]  = $aite;
    $kekka[$i] = $kekka_jp;
}

# 履歴を表示
print "\n[じゃんけんの履歴]\n";
for my $i (1..3) {
    printf("%d %d %s\n", $jibun[$i], $aite[$i], $kekka[$i]);  
}

exit 0;