#!/usr/bin/env perl use strict; use warnings; # 乱数の初期化 srand(time|$$); for (1..3) { # 読みやすいように、ループの中ではインデントをします my $jibun = -1; my $aite = int(rand(3)); # 乱数で0〜2を生成 chomp($jibun = ); my $kekka = (3 + $jibun - $aite) % 3; if ($kekka == 0) { print "あいこです\n"; } elsif ($kekka == 1) { print "負けです\n"; } elsif ($kekka == 2) { print "勝ちです\n"; } } exit 0;