機妙算(MindMaster)遊戲 III
程式由網友 SuperMANganese 提供。這個版可以選擇猜的數字可重複或不重複重。
更新日期: 2014年8月22日
注意: 程式不可以在fx-3650P II上使用。
程式一 (224 bytes，不記錄次數版本)
程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。
注意: 藍色的英文字為統計模式中的變數(Σx 按 Shift 1 2，Σy 按 Shift 1 → 2)，α是按SHIFT 7 → → 2，E 是按 EXP。
?→M: Lbl 9: Fix 0: Rnd(9Ran#→A: Rnd(9Ran#→B: Rnd(9Ran#→C:
Rnd(9Ran#→D: Norm 1: M(0=(A-B)(A-C)(A-D)(B-C)(B-D)(C-D
=> Goto 9: Lbl 0: ClrStat: Lbl 1: Rec( 0, 0: ?→X:
α≧Abs(X-A => 9 DT: Lbl 2: If X=A: Then X+α→X: A-α→A:
1 DT: IfEnd: Lbl 3: A→M: B→A: C→B: D→C: M→D: 1+Y→Y:
Y=4 => Goto 3: Y≦4 => Goto 2: E2 DT: Σx < 400 => Goto 1:
Fix 0: Rnd(A→A: Rnd(B→B: Rnd(C→C: Rnd(D→D: Norm 1:
Σx - 400◢ Ans - 40 =>
Goto 0: π
程式二 (242 bytes，記錄次數版本)
程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。
注意: 藍色的英文字為統計模式中的變數(Σx 按 Shift 1 2，Σy 按 Shift 1 → 2)，α是按SHIFT 7 → → 2，E 是按 EXP。
FreqOn: ; 0 DT: ?→M: Lbl 9: Fix 0: Rnd(9Ran#→A: Rnd(9Ran#→B:
Rnd(9Ran#→C: Rnd(9Ran#→D: Norm 1: M(0=(A-B)(A-C)(A-D)
(B-C)(B-D)(C-D => Goto 9: Lbl 0: Σy + 1: ClrStat:
; Ans DT: , 0 DT: Lbl 1: Rec( 0, 0: ?→X: α≧Abs(X-A => 9 DT:
Lbl 2: If X=A: Then X+α→X: A-α→A: 1 DT: IfEnd: Lbl 3:
A→M: B→A: C→B: D→C: M→D: 1+Y→Y:Y=4 => Goto 3:
Y≦4 => Goto 2: E2 DT: Σx < 400 => Goto 1: Fix 0:Rnd(A→A:
Rnd(B→B: Rnd(C→C: Rnd(D→D: Norm 1: Σx - 400◢
Ans - 40 => Goto 0: Σy
用法示範 (假設答案是3650) :
按 Prog 1 再按 0 EXE (輸入0代表猜的數字可重複，若輸入1則代表不重複)
1 EXE 1 EXE 2 EXE 2 EXE (表示猜1122)
(顯示0，十位0代表有0個數字位置及數字同時正確，個位0代表有0個數字正確但位置錯誤)
再按 3 EXE 3 EXE 4 EXE 4 EXE (表示猜3344)
(顯示10，十位1代表有1個數字位置及數字同時正確，個位0代表有0個數字正確但位置錯誤)
再按 5 EXE 5 EXE 6 EXE 6 EXE (表示猜5566)
(顯示2，十位0代表有0個數字位置及數字同時正確，個位2代表有2個數字正確但位置錯誤)
...
(猜中時程式一顯示π，程式二會顯示次數)
註:
1. 如在中途離開，請在完成輸入一組數字後才離開，否則可能無法知道答案的正確次序。
2. 此式運行時間較長, 每個輸入數字需運算約0.9秒。
附錄程式原理:
(例如答案為3665, 猜6355, 顯示12)
1. 先檢定猜測中的第一個位(6),與3665中的第一個位(3)核對 (即X6 A3B6C6D5)
2. 然後把答案換位, 再次檢測 (即X6 A6B6C5D3 ; X6 A6B5C3D6 ; X6 A5B3C6D6)
3. 輸入猜測的第二個位(3), 與3665中的第二個位(6)核對 (即X3 A6B6C5D3)
4. 重複以上步驟, 直至全部驗證完成
5. 若檢驗出"數字正確但位置錯誤"，則猜的數與答案數均會加上一個細數α (例如驗出 X6 A6B6C5D3 => X6+α A6-αB6C5D3, 猜的6變成 6+α，答案的6變成 6-α) ，這樣該數字就不會再被驗出"數字正確但位置錯誤"了。
6. 每次輸入數字時，與最先檢驗的數字，會另外檢驗"數字位置及數字同時正確" 無論本身有沒有加上α，也不受影響。
返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集