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

提出ソース

結果

問題	No.752 mod数列
ユーザー	kotatsugame
提出日時	2018-11-16 23:13:01
言語	Perl (5.40.0)
結果	AC
実行時間	693 ms / 2,000 ms
コード長	132 bytes
コンパイル時間	85 ms
コンパイル使用メモリ	5,248 KB
実行使用メモリ	103,808 KB
最終ジャッジ日時	2024-12-24 14:20:05
合計ジャッジ時間	11,070 ms
ジャッジサーバーID （参考情報）	judge5 / judge1

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

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

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

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

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

0