結果

問題 No.181 A↑↑N mod M
ユーザー %20
提出日時 2017-08-20 02:28:59
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 296 bytes
コンパイル時間 231 ms
コンパイル使用メモリ 6,016 KB
実行使用メモリ 819,896 KB
最終ジャッジ日時 2024-10-14 16:34:39
合計ジャッジ時間 5,324 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 6
other WA * 1 MLE * 1 -- * 35
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

($A,$N,$M)=glob<>;
die if not 1<=$A&&$A<=1e9;
die if not 0<=$N&&$N<=1e9;
die if not 1<=$M&&$M<=2e3;
if($M==1){print 0;exit}
@a=$a=1;
push@a,$a while(($a*=$A)%=$M)-1;
@_[@b=(1,$b=$A%@a)]=0..++$i;
$_[$b]=++$i,push@b,$b until$_[$b=$a[$b%@a]]//0;
print$b[$N<$_[$b]?$N:$_[$b]+($N-$_[$b])%(@b-$_[$b])]
0