結果

問題 No.287 場合の数
ユーザー %20
提出日時 2018-06-04 15:53:50
言語 Perl
(5.16.3)
結果
AC  
実行時間 74 ms
コード長 142 Byte
コンパイル時間 16 ms
使用メモリ 2,128 KB
最終ジャッジ日時 2019-10-20 10:56:38

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
input.txt AC 48 ms
2,120 KB
sample1.txt AC 3 ms
2,080 KB
sample2.txt AC 4 ms
2,080 KB
sample3.txt AC 65 ms
2,124 KB
system_test1.txt AC 64 ms
2,124 KB
test1.txt AC 47 ms
2,116 KB
test2.txt AC 8 ms
2,084 KB
test3.txt AC 24 ms
2,096 KB
test4.txt AC 34 ms
2,116 KB
test5.txt AC 49 ms
2,116 KB
test6.txt AC 65 ms
2,120 KB
test7.txt AC 18 ms
2,096 KB
test8.txt AC 58 ms
2,128 KB
test9.txt AC 18 ms
2,096 KB
test10.txt AC 43 ms
2,108 KB
test11.txt AC 74 ms
2,124 KB
test12.txt AC 28 ms
2,100 KB
test13.txt AC 56 ms
2,124 KB
test14.txt AC 23 ms
2,096 KB
test15.txt AC 52 ms
2,120 KB
test16.txt AC 30 ms
2,116 KB
test17.txt AC 49 ms
2,116 KB
test18.txt AC 46 ms
2,120 KB
test19.txt AC 39 ms
2,120 KB
test20.txt AC 30 ms
2,104 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
@_=[(1)x(($N=<>)+1)];
for$k(0..2){
	for$i(0..$N<<$k){
		for$j(0..$N<<$k){
			$_[$k+1][$i+$j]+=$_[$k][$i]*$_[$k][$j]
		}
	}
}
print$_[3][6*$N]
0