估數字(III)
網友提供程式日期: 2009年7月30日
程式由網友 SuperMANganese 提供。 這個版本加入了防作弊的特點，另外亦可以自定隨機數的最大整數值，遊戲的目的是要找出這個隨機數字，每次估數字前會顯示該數值的可能範圍，若果估的數字正確，會顯示所用的總次(六十進數的值)。
注意: E 是按 EXP，而 Mo 是按 ALPHA MR o,,,
程式 (117 bytes)
?→D: Stat clear: Ran# + E-3Ran# + E-6Ran#:
2+Ans(D-3: Fix 0: Rnd: Norm 1: Ans ; 0 DT: 1→C: 0→M:
Lbl 1: C◢ D◢ Rec(0,0: ?→X: ; 0 DT: Ans→Y: 1+M→M:
X≧D => Goto 1: C≧X => Goto 1: X nCr 1:
X>Y => X→D => Goto 1: Y>X => X→C => Goto 1: Mo
操作示範(假定要估的數值是924):
按 Prog 1 再按 1000 EXE (表示要產生1-1000的隨機數及顯示1)
EXE (顯示1000，表示答案為1-1000的整數)
EXE 777 EXE (假設估777及顯示777) EXE (顯示1000，表示答案為777-1000的整數)
950 EXE (假設估950及顯示888) EXE (顯示950，表示答案為888-950的整數)
924 EXE (假設估924，顯示4o0o0，表示4次估中答案)
註1: 輸入數字非整數會MATH ERROR；輸入數字超出範圍，會重新顯示範圍及要求重新輸入，但會當作估一次。
註2: 如想知道答案，在顯示可能範圍時終止程式，再按按 RCL Y 可顯示答案。
註3: 3650可能會datafull，此時按1(editoff)即可。
註4: 隨機機範圍可由1~3至1~1000000000。