ゲームを作りたい人のための ソースコード集

私がその日作った短めのソースを簡単な解説とともに載せていきます
ゲーム制作初心者にとって参考になるかもしれないソースが多いです


<< 弾幕 | main | aのn乗を任意の数で割った余り(繰り返し自乗法) >>



aのn乗を素数で割った余り(周期性)

aのn乗を素数で割った余りを求めるプログラムです

以下の記事の「周期性を使う方法」を参考にさせていただきました

「3の100乗を19で割ったあまりは?」を4通りの方法で計算する

 


a=3        ;乗数
n=100    ;指数
p=19    ;除数
t=1        ;剰余
dim mlst,p
repeat p-1    ;周期性リスト
    if cnt>=n:break
    t*a
    if t>p{
        t¥p
    }
    mlst(cnt)=t
    mes""+a+" の "+(cnt+1)+" 乗≡ "+t+" (mod "+p+" )"
loop
mes"・¥n・¥n・¥n"
pos 300,0
if p>n{
    tt=n-1
}else{
    tt=n¥(p-1)-1
}
mes""+a+" の "+n+" 乗≡ "+mlst(tt)+" (mod "+p+" )"

0
    posted by higashijugem 11:21comments(0)|-|


    この記事に対するコメント