結果

問題 No.459 C-VS for yukicoder
ユーザー tailstails
提出日時 2016-12-10 00:29:02
言語 Perl
(5.38.2)
結果
TLE  
実行時間 -
コード長 962 bytes
コンパイル時間 510 ms
コンパイル使用メモリ 5,888 KB
実行使用メモリ 23,088 KB
最終ジャッジ日時 2024-05-06 13:40:52
合計ジャッジ時間 4,741 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 7 ms
11,392 KB
testcase_01 AC 7 ms
6,016 KB
testcase_02 AC 6 ms
5,888 KB
testcase_03 AC 6 ms
5,888 KB
testcase_04 AC 7 ms
6,016 KB
testcase_05 AC 7 ms
5,888 KB
testcase_06 AC 8 ms
6,016 KB
testcase_07 AC 6 ms
5,888 KB
testcase_08 AC 7 ms
6,016 KB
testcase_09 AC 7 ms
5,888 KB
testcase_10 AC 6 ms
5,888 KB
testcase_11 AC 6 ms
5,888 KB
testcase_12 AC 6 ms
5,888 KB
testcase_13 AC 7 ms
5,888 KB
testcase_14 AC 7 ms
6,016 KB
testcase_15 AC 11 ms
6,272 KB
testcase_16 AC 9 ms
6,144 KB
testcase_17 AC 6 ms
6,016 KB
testcase_18 AC 7 ms
5,888 KB
testcase_19 AC 7 ms
6,016 KB
testcase_20 AC 7 ms
5,888 KB
testcase_21 TLE -
testcase_22 -- -
testcase_23 -- -
testcase_24 -- -
testcase_25 -- -
testcase_26 -- -
testcase_27 -- -
testcase_28 -- -
testcase_29 -- -
testcase_30 -- -
testcase_31 -- -
testcase_32 -- -
testcase_33 -- -
testcase_34 -- -
testcase_35 -- -
testcase_36 -- -
testcase_37 -- -
testcase_38 -- -
testcase_39 -- -
testcase_40 -- -
testcase_41 -- -
testcase_42 -- -
testcase_43 -- -
testcase_44 -- -
testcase_45 -- -
testcase_46 -- -
testcase_47 -- -
testcase_48 -- -
testcase_49 -- -
testcase_50 -- -
testcase_51 -- -
testcase_52 -- -
testcase_53 -- -
testcase_54 -- -
testcase_55 -- -
testcase_56 -- -
testcase_57 -- -
testcase_58 -- -
testcase_59 -- -
testcase_60 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::y" used only once: possible typo at Main.pl line 2.
Main.pl syntax OK

ソースコード

diff # 

($h,$w,$n)=glob<>;
for$y(1..$h){
	$_=<>;
	for$x(0..$w-1){
		if(substr($_,$x,1)eq'#'){
			++$a[$x];
		}
	}
}
for$t(0..$n-1){
	$c=<>;
	$t[$c]=$t;
	push@b,sprintf"%6d,%6d",$c,$t;
}
@b=sort@b;
for($j=0;$j<@b;++$j){
	$_=$b[$j];
	/,/,$c=$`,$t=$';
	$j[$t]=$j;
	$r[$j][0]=$a[$c+0]<3?$a[$c+0]:3; $a[$c+0]-=$r[$j][0];
	$r[$j][1]=$a[$c+1]<3?$a[$c+1]:3; $a[$c+1]-=$r[$j][1];
	$r[$j][2]=$a[$c+2]<3?$a[$c+2]:3; $a[$c+2]-=$r[$j][2];
	while($r[$j][0]+$r[$j][1]+$r[$j][2]==0){
		--$j;
		if($r[$j][2]){
			--$r[$j][2];
			++$a[$b[$j]+2];
		}elsif($r[$j][1]){
			--$r[$j][1];
			++$a[$b[$j]+1];
		}elsif($r[$j][0]){
			--$r[$j][0];
			++$a[$b[$j]+0];
		}
	}
}
for$t(0..$n-1){
	$j=$j[$t];
	print $r[$j][0]>0?'#':'.';
	print $r[$j][1]>0?'#':'.';
	print $r[$j][2]>0?'#':'.';
	print "\n";
	print $r[$j][0]>1?'#':'.';
	print $r[$j][1]>1?'#':'.';
	print $r[$j][2]>1?'#':'.';
	print "\n";
	print $r[$j][0]>2?'#':'.';
	print $r[$j][1]>2?'#':'.';
	print $r[$j][2]>2?'#':'.';
	print "\n";
}
0