テストケース	結果	得点	実行時間	メモリ使用量
1	AC	100%	39ms	55184KB
2	AC	100%	57ms	72032KB
3	AC	100%	18ms	32288KB
4	AC	100%	22ms	36608KB
5	AC	100%	15ms	33824KB
6	AC	100%	19ms	33856KB
7	AC	100%	46ms	59040KB
8	AC	100%	72ms	56816KB
9	AC	100%	93ms	64592KB
10	AC	100%	26ms	46144KB
11	AC	100%	27ms	16464KB
12	AC	100%	61ms	50864KB
13	AC	100%	34ms	48560KB
14	AC	100%	51ms	39808KB
15	AC	100%	71ms	47552KB
16	AC	100%	49ms	29056KB
17	AC	100%	78ms	70928KB
18	AC	100%	46ms	60096KB
19	AC	100%	42ms	28560KB
20	AC	100%	47ms	41728KB
21	AC	100%	5ms	17088KB
22	AC	100%	4ms	16752KB
23	AC	100%	30ms	16080KB

ソースコード

perl -e'
$N=<>;
$x=grep/.{7}/,<>;
print$x*($N-$x)*($N-$x-1)
'