結果

問題 No.60 魔法少女
ユーザー tailstails
提出日時 2017-02-23 09:36:26
言語 Perl
(5.38.2)
結果
AC  
実行時間 2,188 ms / 5,000 ms
コード長 671 bytes
コンパイル時間 390 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 240,768 KB
最終ジャッジ日時 2024-06-10 20:44:07
合計ジャッジ時間 28,737 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1,547 ms
210,688 KB
testcase_01 AC 1,554 ms
210,664 KB
testcase_02 AC 1,661 ms
210,632 KB
testcase_03 AC 1,542 ms
210,688 KB
testcase_04 AC 1,927 ms
225,152 KB
testcase_05 AC 1,879 ms
229,908 KB
testcase_06 AC 2,140 ms
239,820 KB
testcase_07 AC 2,011 ms
232,064 KB
testcase_08 AC 1,819 ms
224,752 KB
testcase_09 AC 1,656 ms
216,576 KB
testcase_10 AC 2,088 ms
238,292 KB
testcase_11 AC 1,585 ms
214,088 KB
testcase_12 AC 1,747 ms
223,872 KB
testcase_13 AC 2,188 ms
240,768 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::k" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff # 

($n,$k)=glob<>;
$e[$_]=<>for 0..$n-1;

for(<>){
($x,$y,$w,$h,$d)=split;
$m{$x,$y}+=$d;
$m{$x+$w+1,$y}-=$d;
$m{$x,$y+$h+1}-=$d;
$m{$x+$w+1,$y+$h+1}+=$d;
}

for$y(@i=-500..500){
$s=0;
for$x(@i){
$l{$x,$y}+=$l{$x,$y-1}+($s=$m{$x,$y}+=$s);
}
}

for(@e){
($x,$y,$h)=split;
$r+=$-=$h-$l{$x,$y};
}

print$r;

########################################
########################################
########################################
########################################
########################################
########################################
########################################
########################################
########################################
0