问“数字是素数吗？”

EN

我想出了一种非常有效的方法来找出一个数字是否是素数，使用TI-BASIC与TI-83/84/+/SE计算器一起使用。我正试图优化它，无论如何可能。

:Input "NUMBER: ",A
:If A<2 or fPart(A
:Then
:Disp "INVALID INPUT"
:Stop
:End
:0→B
:2→I
:While I<A and not(B
:If 0=fPart(A/I
:1→B
:I+2→I
:If I=4
:3→I
:End
:If B
:Disp "NOT"
:Disp "PRIME"

几个注意事项：

• 第2-6行用于验证输入，不影响程序的有效性。
• 第4行和最后两行中的结束"s没有必要，但我添加了它们，这样语法就会在这里突出显示。
• 第12-14行用于加倍加快循环速度，而不是每次由1递增，而是由2执行，If在第一次运行时将4偏移到3。
• not(B非常有效，每当找到匹配以将数字识别为复合数字时，就结束循环。