#298277 (Perl) No.752 mod数列 - yukicoder

提出ソース

結果

問題	No.752 mod数列
ユーザー	kotatsugame
提出日時	2018-11-16 23:09:14
言語	Perl (5.40.0)
結果	AC
実行時間	583 ms / 2,000 ms
コード長	142 bytes
コンパイル時間	275 ms
コンパイル使用メモリ	6,824 KB
実行使用メモリ	85,504 KB
最終ジャッジ日時	2024-12-24 14:19:23
合計ジャッジ時間	10,008 ms
ジャッジサーバーID （参考情報）	judge2 / judge1

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

ファイルパターン	結果
sample	AC * 3
other	AC * 31

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

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

use integer;
$M{0}=0;
sub F{
	my$n=pop;
	my$m;
	$M{$n}//=F($m=$%/($%/$n+1))+($%%$n+$%%($m+1))*($n-$m)/2
}
$%=<>;
print-F($`-/ /)+F($'),$/for<>

0