#506350 (Perl) No.1102 Remnants - yukicoder

提出ソース

結果

問題	No.1102 Remnants
コンテスト
ユーザー	tails
提出日時	2020-07-03 22:30:02
言語	Perl (5.40.0)
結果	TLE
実行時間	-
コード長	137 bytes
コンパイル時間	1,005 ms
コンパイル使用メモリ	12,800 KB
実行使用メモリ	63,900 KB
最終ジャッジ日時	2024-09-17 04:08:56
合計ジャッジ時間	4,732 ms
ジャッジサーバーID （参考情報）	judge1 / judge3

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

ファイルパターン	結果
sample	AC * 3
other	AC * 2 TLE * 1 -- * 22

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

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

use bigint;
($n,$k)=glob<>;
@a=glob<>;
for$i(0..$n-1){
	$s+=$a[$i]*($k+$i+0)->bnok($i)*($k+($n-$i)-1)->bnok($n-$i-1);
}
print $s%(1e9+7)

0