結果
問題 |
No.296 n度寝
|
ユーザー |
![]() |
提出日時 | 2019-07-13 11:32:29 |
言語 | Perl (5.40.0) |
結果 |
TLE
|
実行時間 | - |
コード長 | 837 bytes |
コンパイル時間 | 54 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-21 16:46:30 |
合計ジャッジ時間 | 3,134 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 15 TLE * 1 |
コンパイルメッセージ
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; my $get_up_time = $interval * $sleeps; $minutes += $get_up_time; if ($minutes >= 60){ my $count_hour; for ($count_hour = 0; $minutes >= 60; $count_hour++){ $minutes -= 60; } $hour += $count_hour; if ($hour >= 120){ for (my $count_day5 = 0; $hour >= 120; $count_day5++){ $hour -= 120; } } if ($hour >= 24) { for (my $count_day = 0; $hour >= 24; $count_day++){ $hour -= 24; } } } } print "$hour\n"; print "$minutes\n";