【编程】计算器编程大全（第三期）

一、斐波拉契数列 (0,1,1,2,3,5,8……)
0→A，1→B
A+B→A:A+B→B
9B 24输+N[=]

二、最大公因数 fix 0
(a,b)=? a→X,b→Y
X:结果
Rec(Pol(Rnd(.5Rec(Pol(X-Y-.5,Y,Y)+Y+Abs(X-Y,Rnd(.5(X+Y-Abs(X-Y,Y
45B 4改 71输+N[=]

三、高精度减法 fix 0
甲-乙=? （甲>乙）
0→Y
甲个位→A 乙个位→B [=]显示答案个位
--十---------十-----------------十—
--百---------百-----------------百—
……
Rec(Pol(A+10+B+Y,Rnd(.1A-B)-.5,Y)-10Y-10
32B 4改 44输+N[=]

五、素数判断器 ifx 0
判断a是否是素数。
a→A
Rec(Pol(X+1,A÷X,Y)+0PRnd(Y-Rnd(y-.5)-.5)+Rnd(根号(A)-.5)-X+1)P0
45B 4改 62输+N[=]（狂按）
注：出错时按[左]，若光标出现在末尾（0后面）则a是素数
若光标停在“）”后面，则a不是素数
P指[SHIFT],[×]

"五、素数判断器 ifx 0"
是fix 0

把下面这张图复制到电脑上，该后缀为rar，解压后有一个doc文档。

文档也已发到主群上

辗转相除，感觉有点繁。应该可以优化到30B以内的。

就是大的排在前面。
我用的是.5(X+Y+Abs(X+Y))求最大数的。没用交换。
交换应该更好。

辗转相减慢，(999,1) 要算999次