結果
問題 | No.296 n度寝 |
ユーザー |
![]() |
提出日時 | 2019-07-14 01:29:50 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 4 ms / 1,000 ms |
コード長 | 727 bytes |
コンパイル時間 | 50 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 5,504 KB |
最終ジャッジ日時 | 2024-11-23 17:18:19 |
合計ジャッジ時間 | 755 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 16 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
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){ my $minutes_remainder = $minutes % 60; my $minutes_int = $minutes - $minutes_remainder; my $count_hour = $minutes_int / 60; $hour += $count_hour; $minutes = $minutes_remainder; } if ($hour >= 24){ $hour %= 24; } } print "$hour\n"; print "$minutes\n";