#213857 (Perl) No.587 七対子

• 問題: No.587 七対子
• ユーザー: tails
• 提出日時: 2017-11-03 22:27:33
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 3 ms / 2,000 ms
• コード長: 138 bytes
• コンパイル時間: 376 ms
• コンパイル使用メモリ: 7,148 KB
• 実行使用メモリ: 4,768 KB
• 最終ジャッジ日時: 2023-09-27 02:07:44
• 合計ジャッジ時間: 1,555 ms
• ジャッジサーバーID （参考情報）: judge13 / judge14

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	3 ms; 4,768 KB
testcase_01	AC	3 ms; 4,596 KB
testcase_02	AC	3 ms; 4,520 KB
testcase_03	AC	3 ms; 4,580 KB
testcase_04	AC	3 ms; 4,520 KB
testcase_05	AC	3 ms; 4,696 KB
testcase_06	AC	2 ms; 4,644 KB
testcase_07	AC	3 ms; 4,524 KB
testcase_08	AC	2 ms; 4,648 KB
testcase_09	AC	3 ms; 4,640 KB
testcase_10	AC	3 ms; 4,532 KB
testcase_11	AC	2 ms; 4,596 KB
testcase_12	AC	3 ms; 4,464 KB
testcase_13	AC	3 ms; 4,524 KB
testcase_14	AC	3 ms; 4,440 KB
testcase_15	AC	3 ms; 4,580 KB
testcase_16	AC	2 ms; 4,644 KB
testcase_17	AC	2 ms; 4,460 KB
testcase_18	AC	3 ms; 4,632 KB
testcase_19	AC	3 ms; 4,644 KB
testcase_20	AC	3 ms; 4,644 KB
testcase_21	AC	3 ms; 4,596 KB
testcase_22	AC	2 ms; 4,700 KB
testcase_23	AC	2 ms; 4,508 KB
testcase_24	AC	3 ms; 4,632 KB
testcase_25	AC	3 ms; 4,632 KB
testcase_26	AC	3 ms; 4,644 KB
testcase_27	AC	2 ms; 4,528 KB
testcase_28	AC	3 ms; 4,592 KB
testcase_29	AC	3 ms; 4,748 KB
testcase_30	AC	3 ms; 4,596 KB
testcase_31	AC	2 ms; 4,580 KB
testcase_32	AC	2 ms; 4,512 KB
testcase_33	AC	3 ms; 4,628 KB
testcase_34	AC	3 ms; 4,632 KB

コンパイルメッセージ

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

ソースコード

for(<>=~/./g){
	if(++$a{$_}>2){
		print "Impossible";
		exit;
	}
}
@b=grep$a{$_}==1,a..z;
if(@b>1){
	print "Impossible";
	exit;
}
print@b;