#155622 (Perl) No.150 "良問"(良問とは言っていない

• 問題: No.150 "良問"(良問とは言っていない
• ユーザー: %20
• 提出日時: 2017-03-06 18:44:53
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 176 ms / 5,000 ms
• コード長: 190 bytes
• コンパイル時間: 41 ms
• コンパイル使用メモリ: 5,248 KB
• 実行使用メモリ: 5,376 KB
• 最終ジャッジ日時: 2024-04-19 09:44:26
• 合計ジャッジ時間: 1,561 ms
• ジャッジサーバーID （参考情報）: judge4 / judge3

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	39 ms; 5,248 KB
testcase_01	AC	3 ms; 5,376 KB
testcase_02	AC	3 ms; 5,376 KB
testcase_03	AC	3 ms; 5,376 KB
testcase_04	AC	3 ms; 5,376 KB
testcase_05	AC	5 ms; 5,376 KB
testcase_06	AC	176 ms; 5,376 KB
testcase_07	AC	4 ms; 5,376 KB
testcase_08	AC	4 ms; 5,376 KB
testcase_09	AC	4 ms; 5,376 KB
testcase_10	AC	43 ms; 5,376 KB
testcase_11	AC	49 ms; 5,376 KB
testcase_12	AC	31 ms; 5,376 KB
testcase_13	AC	43 ms; 5,376 KB
testcase_14	AC	58 ms; 5,376 KB
testcase_15	AC	56 ms; 5,376 KB
testcase_16	AC	7 ms; 5,376 KB
testcase_17	AC	18 ms; 5,376 KB
testcase_18	AC	52 ms; 5,376 KB
testcase_19	AC	63 ms; 5,376 KB
testcase_20	AC	64 ms; 5,376 KB

コンパイルメッセージ

Unquoted string "good" may clash with future reserved word at Main.pl line 5.
Unquoted string "problem" may clash with future reserved word at Main.pl line 7.
Main.pl syntax OK

ソースコード

<>;
for$s(<>){
	$%=1e9;
	for$i(0..length($s)-12){
		$g=(good^substr$s,$i,4)=~y/\x00//c;
		for$j($i+4..length($s)-8){
			$%-=$-=$%-$g-(problem^substr$s,$j,7)=~y/\x00//c;
		}
	}
	print$%,$/
}