my $input = <>; chomp ($input); my @input = split (/ /, $input); my $sleeps = $input[0]; my $hour = $input[1]; my $minutes = $input[2]; my $interval = $input[3]; #何度寝と間隔から時間を求める if ($sleeps > 0){ $sleeps -= 1; #もう何度寝たか求める(2度寝->もう1度寝た) my $get_up_time = $interval * $sleeps; $minutes += $get_up_time; if ($minutes >= 60){ if ($minutes >= 60) { my $remainder_minutes = $minutes % 60; my $minutes_int = $minutes - $remainder_minutes; my $count_hour = $minutes_int / 60; $hour += $count_hour; $minutes = $minutes_int; } if ($hour >= 24) { my $remainder_hour = $hour - 23; $hour -= $remainder_hour; $hour = $hour % 24; } } } print "$hour\n"; print "$minutes\n";