#191934 (Perl) No.548 国士無双

• 問題: No.548 国士無双
• ユーザー: tails
• 提出日時: 2017-07-28 22:28:40
• 言語: Perl (5.38.2)
• 結果: WA (最新)
  AC
  (最初)
• 実行時間: -
• コード長: 158 bytes
• コンパイル時間: 438 ms
• コンパイル使用メモリ: 5,328 KB
• 実行使用メモリ: 4,820 KB
• 最終ジャッジ日時: 2023-09-19 08:32:10
• 合計ジャッジ時間: 1,478 ms
• ジャッジサーバーID （参考情報）: judge13 / judge12

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	3 ms; 4,668 KB
testcase_01	AC	3 ms; 4,548 KB
testcase_02	AC	3 ms; 4,760 KB
testcase_03	AC	2 ms; 4,520 KB
testcase_04	AC	3 ms; 4,496 KB
testcase_05	AC	3 ms; 4,608 KB
testcase_06	AC	3 ms; 4,800 KB
testcase_07	AC	3 ms; 4,668 KB
testcase_08	AC	3 ms; 4,724 KB
testcase_09	AC	2 ms; 4,676 KB
testcase_10	AC	3 ms; 4,740 KB
testcase_11	AC	3 ms; 4,532 KB
testcase_12	AC	2 ms; 4,804 KB
testcase_13	AC	3 ms; 4,728 KB
testcase_14	AC	3 ms; 4,628 KB
testcase_15	AC	3 ms; 4,760 KB
testcase_16	AC	3 ms; 4,564 KB
testcase_17	AC	3 ms; 4,524 KB
testcase_18	AC	3 ms; 4,672 KB
testcase_19	AC	3 ms; 4,820 KB
testcase_20	WA	-
testcase_21	AC	3 ms; 4,624 KB
testcase_22	WA	-
testcase_23	AC	3 ms; 4,520 KB

コンパイルメッセージ

Unquoted string "a" may clash with future reserved word at Main.pl line 12.
Unquoted string "a" may clash with future reserved word at Main.pl line 14.
Main.pl syntax OK

ソースコード

$_=<>;
for(/./g){
	if(!y/a-m//){
		print"Impossible";
		exit;
	}
	if($h{$_}++){
		$x=1;
	}
}
if($x){
	print grep!$h{$_},a..'m';
}else{
	print join$/,a..'m';
}