質數測試
程式由網友 roviury 提供。 輸入質數的測試範圍，程式可以顯示質數的數目。
更新日期: 2010年4月27日
程式一(90 bytes，使用記憶C、D、X、Y及M)
?→C: ?→D: 2≦D(C≦2→X: Fix 0:
For 3+2Rnd(.5(C>3)(C-3→C To D Step 2:
√(C→Y: 3→M: Lbl 0: M≦Y => C÷M =>
2(Ans≠Rnd( AnsM+ => Goto 0: X+(M>Y→X: Next:
Norm 1: X
程式二(94 bytes，這個版本測試一個數時可以不用重複輸入數值)
?→C: C→D: ?→D: 2≦D(C≦2→X: Fix 0:
For 3+2Rnd(.5(C>3)(C-3→C To D Step 2:
√(C→Y: 3→M: Lbl 0: M≦Y => C÷M =>
2(Ans≠Rnd( AnsM+ => Goto 0: X+(M>Y→X: Next:
Norm 1: X
例題1: 試求10至20間的質數的數目。
按 Prog 1 再按 10 EXE 20 EXE (顯示質數的數目為4)
例題2: 驗証97是否質數。
按 Prog 1 再按 97 EXE 97 EXE (顯示質數的數目為1表示97為質數)
例題2: 驗証91是否質數。
按 Prog 1 再按 91 EXE 91 EXE (顯示質數的數目為0表示91不是質數)