結果

問題 No.459 C-VS for yukicoder
ユーザー tails
提出日時 2016-12-10 13:29:46
言語 Perl
(5.40.0)
結果
AC  
実行時間 505 ms / 2,000 ms
コード長 228 bytes
コンパイル時間 179 ms
コンパイル使用メモリ 5,120 KB
実行使用メモリ 24,832 KB
最終ジャッジ日時 2024-12-23 15:04:16
合計ジャッジ時間 6,109 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 58
権限があれば一括ダウンロードができます
コンパイルメッセージ
Useless use of non-destructive substitution (s///r) in void context at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff # 

<>=~s/#/++$a["@-"]/ger for 1..<>;
$t{$b[@b]="$_ $#b"}=@b for<>;
for$b((sort{$a-$b}@b)x9){
	$r[$t{$b}][$_]<3&&$a[$b+$_]and++$r[$t{$b}][$_],--$a[$b+$_],last for 0..2;
}
for$r(@r){
	print map($$r[$_]-->0?'#':'.',0..2),$/for 0..2;
}
0