#969427 (Perl) No.2715 Unique Chimatagram

• 問題: No.2715 Unique Chimatagram
• ユーザー: tails
• 提出日時: 2024-04-05 21:29:21
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 47 ms / 2,000 ms
• コード長: 129 bytes
• コンパイル時間: 333 ms
• コンパイル使用メモリ: 5,248 KB
• 実行使用メモリ: 10,752 KB
• 最終ジャッジ日時: 2024-10-01 01:41:45
• 合計ジャッジ時間: 2,947 ms
• ジャッジサーバーID （参考情報）: judge1 / judge5

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	3 ms; 5,376 KB
testcase_01	AC	3 ms; 5,376 KB
testcase_02	AC	3 ms; 5,376 KB
testcase_03	AC	3 ms; 5,504 KB
testcase_04	AC	3 ms; 5,504 KB
testcase_05	AC	3 ms; 5,504 KB
testcase_06	AC	4 ms; 5,632 KB
testcase_07	AC	4 ms; 5,376 KB
testcase_08	AC	32 ms; 9,216 KB
testcase_09	AC	34 ms; 9,984 KB
testcase_10	AC	32 ms; 9,600 KB
testcase_11	AC	33 ms; 10,112 KB
testcase_12	AC	30 ms; 9,472 KB
testcase_13	AC	33 ms; 9,984 KB
testcase_14	AC	29 ms; 9,216 KB
testcase_15	AC	30 ms; 9,600 KB
testcase_16	AC	29 ms; 9,216 KB
testcase_17	AC	30 ms; 9,600 KB
testcase_18	AC	44 ms; 10,752 KB
testcase_19	AC	42 ms; 10,752 KB
testcase_20	AC	43 ms; 10,752 KB
testcase_21	AC	44 ms; 10,752 KB
testcase_22	AC	43 ms; 10,752 KB
testcase_23	AC	45 ms; 10,752 KB
testcase_24	AC	46 ms; 10,752 KB
testcase_25	AC	45 ms; 10,752 KB
testcase_26	AC	47 ms; 10,752 KB
testcase_27	AC	46 ms; 10,752 KB
testcase_28	AC	22 ms; 5,632 KB
testcase_29	AC	23 ms; 5,760 KB
testcase_30	AC	23 ms; 5,760 KB
testcase_31	AC	22 ms; 5,760 KB
testcase_32	AC	22 ms; 5,760 KB
testcase_33	AC	3 ms; 5,248 KB
testcase_34	AC	3 ms; 5,376 KB
testcase_35	AC	3 ms; 5,376 KB
testcase_36	AC	4 ms; 5,248 KB
testcase_37	AC	3 ms; 5,504 KB
testcase_38	AC	4 ms; 5,632 KB
testcase_39	AC	13 ms; 6,016 KB
testcase_40	AC	13 ms; 6,016 KB
testcase_41	AC	30 ms; 7,808 KB
testcase_42	AC	31 ms; 5,632 KB

コンパイルメッセージ

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

ソースコード

<>;
for(<>){
	@a=/./g;
	for$c(a..z){
		$h{join"",sort@a,$c}+=1;
	}
}
for(keys%h){
	if($h{$_}==1){
		print;
		exit;
	}
}
print-1;