結果

問題 No.752 mod数列
ユーザー %20
提出日時 2018-11-18 20:30:38
言語 Perl
(5.40.0)
結果
AC  
実行時間 586 ms / 2,000 ms
コード長 109 bytes
コンパイル時間 87 ms
コンパイル使用メモリ 6,692 KB
実行使用メモリ 91,264 KB
最終ジャッジ日時 2024-12-24 15:07:49
合計ジャッジ時間 9,452 ms
ジャッジサーバーID
(参考情報)
judge4 / judge1
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 31
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::M" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff #

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