猜數字遊戲

猜數字遊戲

程式由網友 lugia249 提供，玩家輸入三個不同整數(1-30)，猜測電腦的攪珠結果。

更新日期: 2011年1月27日

注意: Ans^o 是按 Ans ^o,,,

程式 (182 bytes)

MM-: While 1: M◢ 5M-: ?→A: ?→B: ?→C: Fix 0:

Rnd(30Ran# + . 5→D: Lbl 1: Rnd(30Ran# + . 5→X:

X=D => Goto 1: Rnd(30Ran# + . 5→Y: Y=D => Goto 1:

Y=X => Goto 1: D+X÷60+Y÷60²: Norm 2: Ans^o◢

25( (D=A) + (D=B) + (D=C) + (X=A) + (X=B) +

(X=C) + (Y=A) + (Y=B) + (Y=CM+:

A+B+C=D+X+Y => ABC=DXY => 225M+: WhileEnd

註: 每猜一次數字後，程式會抧除 $5 作為下注費用，若果猜中一些數字或三個數字全部猜中，則按下列規則獲得獎金。

(i) 猜中其中一個數字，獎金為$25 (實際贏 $20)

(ii) 猜中其中二個數字，獎金為$50 (實際贏 $45)

(iii) 猜中三個數字(全中)，獎金為$300 (實際贏 $295)
　

操作示範:

1. 先按 Prog 1 執行程式，這時會顯示M及0表示現有的總金額。

2. 再輸入三個不同1至30的整數(猜測的數值)，例如按 23 EXE 24 EXE 25EXE。

3. 程式會以度分秒形式顯示三個數值的攪珠結果，假定是24, 23, 21則會顯示24^o23^o21

4. 再按 EXE 會顯示M值 45 (假設猜中兩個數值，所以現有總金額變為 $45)

5. 再按 EXE 會繼續下一次猜數值遊戲，若不想繼續遊戲可按 AC 終止程式，否則將由步驟2 開始再重複進行遊戲。