#646034 (Perl) No.1470 Mex Sum - yukicoder

提出ソース

結果

問題	No.1470 Mex Sum
ユーザー	tails
提出日時	2021-04-09 21:41:29
言語	Perl (5.38.2)
結果	AC
実行時間	383 ms / 2,000 ms
コード長	99 bytes
コンパイル時間	303 ms
コンパイル使用メモリ	5,888 KB
実行使用メモリ	46,208 KB
最終ジャッジ日時	2024-06-25 04:44:05
合計ジャッジ時間	16,082 ms
ジャッジサーバーID （参考情報）	judge5 / judge3

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	7 ms 5,888 KB
testcase_01	AC	6 ms 5,888 KB
testcase_02	AC	42 ms 9,728 KB
testcase_03	AC	41 ms 9,600 KB
testcase_04	AC	42 ms 9,728 KB
testcase_05	AC	41 ms 9,856 KB
testcase_06	AC	42 ms 9,856 KB
testcase_07	AC	41 ms 9,856 KB
testcase_08	AC	42 ms 9,728 KB
testcase_09	AC	41 ms 9,856 KB
testcase_10	AC	42 ms 9,728 KB
testcase_11	AC	41 ms 9,728 KB
testcase_12	AC	351 ms 45,440 KB
testcase_13	AC	347 ms 44,928 KB
testcase_14	AC	347 ms 44,928 KB
testcase_15	AC	353 ms 45,440 KB
testcase_16	AC	353 ms 44,544 KB
testcase_17	AC	345 ms 44,288 KB
testcase_18	AC	347 ms 44,160 KB
testcase_19	AC	352 ms 44,672 KB
testcase_20	AC	351 ms 44,672 KB
testcase_21	AC	363 ms 45,824 KB
testcase_22	AC	364 ms 45,952 KB
testcase_23	AC	370 ms 46,080 KB
testcase_24	AC	368 ms 46,080 KB
testcase_25	AC	367 ms 45,952 KB
testcase_26	AC	371 ms 46,080 KB
testcase_27	AC	368 ms 46,080 KB
testcase_28	AC	366 ms 46,208 KB
testcase_29	AC	374 ms 46,080 KB
testcase_30	AC	371 ms 46,080 KB
testcase_31	AC	376 ms 46,080 KB
testcase_32	AC	371 ms 45,952 KB
testcase_33	AC	371 ms 45,952 KB
testcase_34	AC	372 ms 46,080 KB
testcase_35	AC	374 ms 45,952 KB
testcase_36	AC	383 ms 46,080 KB
testcase_37	AC	303 ms 45,696 KB
testcase_38	AC	314 ms 45,696 KB
testcase_39	AC	304 ms 45,696 KB
testcase_40	AC	305 ms 45,696 KB
testcase_41	AC	312 ms 45,696 KB
testcase_42	AC	304 ms 45,696 KB
testcase_43	AC	300 ms 45,824 KB
testcase_44	AC	300 ms 45,696 KB
testcase_45	AC	303 ms 45,696 KB
testcase_46	AC	303 ms 45,696 KB
testcase_47	AC	300 ms 45,824 KB
testcase_48	AC	302 ms 45,696 KB
testcase_49	AC	301 ms 45,696 KB
testcase_50	AC	305 ms 45,824 KB

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

$n=<>;
for(glob<>){
	$a+=$_==1;
	$b+=$_==2;
}
print $a*$b*2+$a*($n-$b-$a)+$a*($a-1)/2+$n*($n-1)/2;

0