#54188 (Perl) No.291 黒い文字列

• 問題: No.291 黒い文字列
• ユーザー: tails
• 提出日時: 2015-10-16 23:28:30
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 1,219 ms / 2,000 ms
• コード長: 430 bytes
• コンパイル時間: 430 ms
• コンパイル使用メモリ: 5,332 KB
• 実行使用メモリ: 8,752 KB
• 最終ジャッジ日時: 2023-09-29 01:54:20
• 合計ジャッジ時間: 6,829 ms
• ジャッジサーバーID （参考情報）: judge12 / judge11

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	3 ms; 4,504 KB
testcase_01	AC	3 ms; 4,840 KB
testcase_02	AC	3 ms; 4,688 KB
testcase_03	AC	2 ms; 4,656 KB
testcase_04	AC	3 ms; 4,524 KB
testcase_05	AC	3 ms; 4,648 KB
testcase_06	AC	3 ms; 4,724 KB
testcase_07	AC	2 ms; 4,804 KB
testcase_08	AC	3 ms; 4,500 KB
testcase_09	AC	2 ms; 4,756 KB
testcase_10	AC	2 ms; 4,800 KB
testcase_11	AC	9 ms; 4,600 KB
testcase_12	AC	11 ms; 4,752 KB
testcase_13	AC	3 ms; 4,668 KB
testcase_14	AC	2 ms; 4,776 KB
testcase_15	AC	2 ms; 4,584 KB
testcase_16	AC	440 ms; 7,764 KB
testcase_17	AC	747 ms; 7,900 KB
testcase_18	AC	457 ms; 7,252 KB
testcase_19	AC	611 ms; 6,400 KB
testcase_20	AC	584 ms; 6,364 KB
testcase_21	AC	2 ms; 4,552 KB
testcase_22	AC	1,219 ms; 8,752 KB
testcase_23	AC	159 ms; 4,916 KB
testcase_24	AC	835 ms; 7,856 KB
testcase_25	AC	3 ms; 4,668 KB
testcase_26	AC	2 ms; 4,548 KB
testcase_27	AC	3 ms; 4,664 KB
testcase_28	AC	2 ms; 4,536 KB
testcase_29	AC	2 ms; 4,740 KB

コンパイルメッセージ

Main.pl syntax OK

ソースコード

sub f{
	$a=$_;
	vec($a,$i,8)<($i?vec($a,$i-1,8):20) && ++vec($a,$i,8) && $a;
}

@a=chr(0)x5;
for(<>=~/./g){
	if(y/KUROI//){
		$i=index("KUROI",$_);
		for(@a){
			++vec($_,$i,8) if vec($_,$i,8)<($i?vec($_,$i-1,8):20);
		}
	}
	if(y/?//){
		my%h;
		for(@a){
			for$i(0..4){
				$a=$_;
				++vec($a,$i,8),$h{$a}=0 if vec($a,$i,8)<($i?vec($a,$i-1,8):20);
			}
		}
		@a=keys%h;
	}
}
$b<vec($_,4,8) and $b=vec($_,4,8) for@a;
print $b+0;