結果
問題 |
No.231 めぐるはめぐる (1)
|
ユーザー |
![]() |
提出日時 | 2015-06-29 16:24:33 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 7 ms / 1,000 ms |
コード長 | 320 bytes |
コンパイル時間 | 540 ms |
コンパイル使用メモリ | 5,632 KB |
実行使用メモリ | 5,760 KB |
最終ジャッジ日時 | 2024-11-07 23:39:42 |
合計ジャッジ時間 | 1,115 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 11 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use strict; use warnings; my $n = <>; my $res = 0; for(my $i = 0; $i < $n; $i++) { my ($g, $d) =split / /, <>; my $total = $g * 6 - $d*(6 * 30000); if($total >= 30000 * 100) { $res = $i + 1; } } if($res != 0) { print "YES\n"; for(my $i = 0; $i < 6; $i++) { print "$res\n"; } } else { print "NO\n"; } exit;