#!/usr/bin/env perl use strict; use warnings; my $jibun = -1; my $aite = 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;