結果
問題 | No.678 2Dシューティングゲームの必殺ビーム |
ユーザー |
![]() |
提出日時 | 2018-04-28 00:18:06 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 10 ms / 2,000 ms |
コード長 | 196 bytes |
コンパイル時間 | 96 ms |
コンパイル使用メモリ | 6,684 KB |
実行使用メモリ | 6,948 KB |
最終ジャッジ日時 | 2024-06-27 23:03:04 |
合計ジャッジ時間 | 943 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 18 |
コンパイルメッセージ
Name "main::n" used only once: possible typo at Main.pl line 1. Name "main::u" used only once: possible typo at Main.pl line 8. Main.pl syntax OK
ソースコード
($n,$a,$b)=glob<>;$m[$_]=1for$a+$<..$b+$<;map{($d,$l,$r,$i)=unpack N4,$_;$h=0;$h|=$_,$_=0for@m[$l..$r];$r[$i]=$h.$/;}sort map{($l,$u,$r,$d)=glob;pack N4,-$d,$l+$<,$r+$<,$i++}<>;print@r