Hi Lo without Secret Number?

[bplus]

Before the river of time travels too far, here is my revised version of Hi Lo Game that has no secret number from start. The number gets established later by careful applications of RND s.t. the final secret numbers established cover fairly evenly the number range 1 to 100 like int(rnd*100) + 1 for secret number would have done.

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Hi Lo Game without Secret Number v2" 'B+ 2020-10-13
3. ' trans from JB 2020-10-11 minimal changes
4. RANDOMIZE TIMER
5. DEFINT A-Z
6. DIM hi, lo, guesses$, playerGuess, guessed, range, again$
7. restart:
8. CLS
9. hi = 101: lo = 0 '<<<<  make these higher and lower than what the secret number can be
10. guesses$ = ""
11. WHILE hi - lo > 1
12.     INPUT "Guess Number 1 to 100, Enter your guess "; playerGuess
13.     'if PlayerGuess = 0 then goto [restart]  ' GOOD! we split first guess of 50 both ways!
14.     IF playerGuess < 1 OR playerGuess > 100 THEN
15.         PRINT "Your guess is out of range of this game."
16.         GOTO cont
17.     END IF
18.     IF INSTR(guesses$, RIGHT$("000" + STR$(playerGuess), 3)) THEN
19.         PRINT "You've guessed that number already."
20.         GOTO cont
21.     END IF
22.     guesses$ = guesses$ + "," + RIGHT$("000" + STR$(playerGuess), 3)
23.     IF playerGuess > lo AND playerGuess < hi THEN
24.         ' must be inside the Lo and Hi range ie not inclusive boundaries.
25.         IF RND <= 1 / (hi - lo - 1) THEN
26.             PRINT "You Guessed!"
27.             guessed = 1
28.             EXIT WHILE
29.         ELSE
30.             IF playerGuess = lo + 1 THEN
31.                 PRINT "Your guess was low."
32.                 lo = lo + 1
33.             ELSE
34.                 IF playerGuess = hi - 1 THEN
35.                     PRINT "Your guess was high."
36.                     hi = hi - 1
37.                 ELSE
38.                     'p < guess = (guess - lo -1) / range
39.                     range = hi - lo - 1
40.                     IF RND * range <= playerGuess - lo - .5 THEN
41.                         PRINT lo, hi, "Your guess was too high."
42.                         hi = playerGuess
43.                     ELSE
44.                         PRINT lo, hi, "Your guess was too low."
45.                         lo = playerGuess
46.                     END IF
47.                 END IF
48.             END IF
49.         END IF
50.     ELSE
51.         IF playerGuess >= hi THEN PRINT "Your guess was too high." ELSE PRINT "Your guess was too low."
52.     END IF
53.     cont:
54. WEND
55. IF guessed <> 1 THEN PRINT "Yikes! Programming error, did not find secret number."
56. PRINT: INPUT "press Enter to go again, any other + Enter to quit "; again$
57. IF LEN(again$) THEN END ELSE GOTO restart
58.  
59.  

And here are 2 frequency testers in one, just change what is commented out for PlayerGuess:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Hi Lo Game wo secret Test Distribution" '  B+ 2020-10-10 works now
3. DEFINT A-Z
4. RANDOMIZE TIMER
5. DIM secrets(100) 'check distribution of answers, also checking if we fail to arrive at answer
6. DIM hi, lo, guesses$, alo, ahi, guessed, playerGuess, range, programErrors, trial, low, i, tot, saveLowI, high, saveHighI, w$
7.  
8. restart:
9. CLS
10. hi = 101: lo = 0 '<<<<  make these higher and lower than what the secret number can be
11. guesses$ = ""
12. guessed = 0
13. ahi = 101
14. WHILE hi - lo > 1
15.     'input "Guess Number 1 to 100, Enter your guess "; PlayerGuess
16.  
17.     'use AI to guess
18.  
19.     'make all the guesses way too high ie ride the AHI down 1 by 1
20.     'ahi = ahi - 1
21.     'playerGuess = ahi
22.  
23.     playerGuess = INT((hi - lo) / 2) + lo 'debug what the heck is going on with ALO AHI??
24.     'PRINT "Player Guesses "; playerGuess
25.  
26.     'if PlayerGuess = 0 then goto [restart]  ' GOOD! we split first guess of 50 both ways!
27.     IF playerGuess < 1 OR playerGuess > 100 THEN
28.         PRINT "Your guess is out of range of this game."
29.         GOTO cont
30.     END IF
31.     IF INSTR(guesses$, RIGHT$("000" + STR$(playerGuess), 3)) THEN
32.         PRINT "You've guessed that number already."
33.         GOTO cont
34.     END IF
35.     guesses$ = guesses$ + "," + RIGHT$("000" + STR$(playerGuess), 3)
36.     IF playerGuess > lo AND playerGuess < hi THEN
37.         ' must be inside the Lo and Hi range ie not inclusive boundaries.
38.         IF RND <= 1 / (hi - lo - 1) THEN
39.             PRINT "You Guessed!"
40.             guessed = 1
41.         ELSE
42.             IF playerGuess = lo + 1 THEN
43.                 'PRINT "Your guess was low."
44.                 lo = lo + 1
45.             ELSE
46.                 IF playerGuess = hi - 1 THEN
47.                     'PRINT "Your guess was high."
48.                     hi = hi - 1
49.                 ELSE
50.                     'p < guess = (guess - lo -1) / range
51.                     range = hi - lo - 1
52.                     IF RND * range <= playerGuess - lo - .5 THEN
53.                         ' PRINT lo, hi, "Your guess was too high."
54.                         hi = playerGuess
55.                     ELSE
56.                         'PRINT lo, hi, "Your guess was too low."
57.                         lo = playerGuess
58.                     END IF
59.                 END IF
60.             END IF
61.         END IF
62.     ELSE 'going wrong way with guessing, not narrowing down with current guess
63.         'IF playerGuess >= hi THEN PRINT "Your guess was too high." ELSE PRINT "Your guess was too low."
64.     END IF
65.  
66.     cont:
67.     'PRINT lo, hi, alo, ahi 'OK that blunder was pretty dumb!
68.     'INPUT "Press enter to continue..."; w$
69.     IF guessed THEN EXIT WHILE
70. WEND
71. IF guessed <> 1 THEN
72.     BEEP
73.     PRINT "Yikes! Programming error, did not find secret number."
74.     programErrors = programErrors + 1
75. ELSE
76.     secrets(playerGuess) = secrets(playerGuess) + 1
77. END IF
78. trial = trial + 1
79. IF trial < 10000 THEN GOTO restart
80.  
81. PRINT "Secret Numbers results:"
82. PRINT "Program errors = "; programErrors
83. low = 10000
84. FOR i = 1 TO 100
85.     PRINT i, secrets(i)
86.     tot = tot + secrets(i)
87.     IF secrets(i) < low THEN low = secrets(i): saveLowI = i
88.     IF secrets(i) > high THEN high = secrets(i): saveHighI = i
89.     IF i MOD 20 = 0 THEN
90.         INPUT "Press enter to continue... "; w$
91.         CLS
92.     END IF
93. NEXT
94. PRINT "Total "; tot
95. PRINT " Lowest count "; low; " for i = "; saveLowI
96. PRINT "Highest count "; high; " for i = "; saveHighI
97. END
98.  

And this is the frequency tester in which the V2 Game code (the AI deciding if guess too high or low or correct) was developed using a deck of numbers from 1 to 100 shuffled for guessing randomly without repetition.

Code: QB64: [Select]

1. ' Hi Lo Game WO Secret Number v2 Test Random Guessing Distribution  B+ 2020-10-13
2.  
3. ' Check tsh73 report of wackiness for pure random guessing.
4. ' So we aren't here all day waiting for results of 1000 tests
5. ' let us store all the guess numbers into a deck.
6. ' Shuffle the deck before each round and use 100 numbers WITHOUT REPEAT
7. ' to get that secret number established! That should save us a ship load
8. ' of time and still produce results of pure random guesses.
9.  
10. ' 2020-10-13 trans JB code to QB64
11.  
12. DEFINT A-Z
13. RANDOMIZE TIMER
14. DIM secrets(100) ' Check distribution of answers, also checking if we fail to arrive at answer.
15. DIM rg(100) '      Get our random guesses in a row! Here is our Deck!
16. FOR i = 1 TO 100 ' Create our deck of random numbers to test, rg stands for Random Guess
17.     rg(i) = i
18. NEXT
19.  
20. restart:
21. ' reinitialize all that is necessary start by reshuffle rg()
22. FOR i = 100 TO 2 STEP -1 'forget about 0 leave it alone
23.     tmp = rg(i)
24.     r = INT(RND * i) + 1
25.     rg(i) = rg(r)
26.     rg(r) = tmp
27. NEXT
28. rIdx = 1 'reset deck index
29. Hi = 101: Lo = 0 '  reset, make these higher and lower than what the secret number can be
30. guesses$ = "" '     track what has been guessed
31. Guessed = 0 '     flag the number has been established!
32.  
33. WHILE Hi - Lo > 1 ' Begin rounds of guesses for number
34.  
35.     PlayerGuess = rg(rIdx) ' 1 of 100 pure random guesses
36.     rIdx = rIdx + 1
37.     'PRINT "Player Guesses "; PlayerGuess
38.  
39.     'if PlayerGuess = 0 then goto restart  ' GOOD! we split first guess of 50 both ways!
40.     IF PlayerGuess < 1 OR PlayerGuess > 100 THEN 'not going to happen
41.         GOTO cont
42.     END IF
43.     IF INSTR(guesses$, RIGHT$("000" + STR$(PlayerGuess), 3)) THEN 'not going to happen
44.         GOTO cont
45.     END IF
46.     guesses$ = guesses$ + "," + RIGHT$("000" + STR$(PlayerGuess), 3) 'wasting time but...
47.     IF PlayerGuess > Lo AND PlayerGuess < Hi THEN
48.         r = RND: p = 1 / (Hi - Lo - 1) ' must be inside the Lo and Hi range ie not inclusive boundaries.
49.         IF r <= p THEN
50.             'PRINT "You guessed it!"
51.             Guessed = 1
52.             EXIT WHILE
53.         ELSE
54.             IF PlayerGuess = Lo + 1 THEN
55.                 'PRINT "Your guess was low."
56.                 Lo = Lo + 1
57.             ELSE
58.                 IF PlayerGuess = Hi - 1 THEN
59.                     'PRINT "Your guess was high."
60.                     Hi = Hi - 1
61.                 ELSE
62.                     'p < guess = (guess - lo -1) / range
63.                     range = Hi - Lo - 1
64.                     IF RND * range <= PlayerGuess - Lo - .5 THEN
65.                         'PRINT Lo, Hi, "Your guess was too high."
66.                         Hi = PlayerGuess
67.                     ELSE
68.                         'PRINT Lo, Hi, "Your guess was too low."
69.                         Lo = PlayerGuess
70.                     END IF
71.                 END IF
72.             END IF
73.         END IF
74.     ELSE 'going wrong way with guessing, not narrowing down with current guess this will happen allot!!!
75.         IF PlayerGuess >= Hi THEN
76.             'Print "Your guess was too high."
77.         ELSE
78.             'print "Your guess was too low."
79.         END IF
80.     END IF
81.     cont:
82.     'INPUT "Press enter to continue..."; wait$
83. WEND
84. IF Guessed <> 1 THEN
85.     'PRINT "Yikes! Programming error, did not find secret number."
86.     programErrors = programErrors + 1
87. ELSE
88.     secrets(PlayerGuess) = secrets(PlayerGuess) + 1
89. END IF
90. trial = trial + 1
91. IF trial < 10000 THEN GOTO restart
92.  
93. 'report results
94. CLS
95. PRINT "Secret Numbers results:"
96. PRINT "Program errors = "; programErrors
97. low = 10000
98. FOR i = 1 TO 100
99.     PRINT i, secrets(i) 'that's right in JB you can scroll output screen to review all 100
100.     tot = tot + secrets(i)
101.     IF secrets(i) < low THEN low = secrets(i): saveLowI = i
102.     IF secrets(i) > high THEN high = secrets(i): saveHighI = i
103.     IF i MOD 20 = 0 THEN
104.         INPUT " Press enter to cont..."; w$
105.         CLS
106.     END IF
107. NEXT
108. PRINT "Total "; tot
109. PRINT " Lowest count "; low; " for i = "; saveLowI
110. PRINT "Highest count "; high; " for i = "; saveHighI
111. END
112.  
113.