#!/usr/bin/env perl use strict; use warnings; my $jibun = -1; my $aite = 2; chomp($jibun = ); my $kekka = (3 + $jibun - $aite) % 3; print $kekka, "\n"; exit 0;