« previous next »
Pages: 1 2 [3]   Go Down

Author Topic: Hi Lo without Secret Number?  (Read 7677 times)

0 Members and 1 Guest are viewing this topic.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Hi Lo without Secret Number?
« Reply #30 on: October 15, 2020, 09:17:25 pm »
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]
  2. _TITLE "Hi Lo Game without Secret Number v2" 'B+ 2020-10-13
  3. ' trans from JB 2020-10-11 minimal changes
  5. DEFINT A-Z
  6. DIM hi, lo, guesses$, playerGuess, guessed, range, again$
  7. restart:
  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:
  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]
  2. _TITLE "Hi Lo Game wo secret Test Distribution" '  B+ 2020-10-10 works now
  3. DEFINT A-Z
  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:
  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
  71. IF guessed <> 1 THEN
  72.     BEEP
  73.     PRINT "Yikes! Programming error, did not find secret number."
  74.     programErrors = programErrors + 1
  76.     secrets(playerGuess) = secrets(playerGuess) + 1
  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
  94. PRINT "Total "; tot
  95. PRINT " Lowest count "; low; " for i = "; saveLowI
  96. PRINT "Highest count "; high; " for i = "; saveHighI
  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
  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
  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
  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$
  84. IF Guessed <> 1 THEN
  85.     'PRINT "Yikes! Programming error, did not find secret number."
  86.     programErrors = programErrors + 1
  88.     secrets(PlayerGuess) = secrets(PlayerGuess) + 1
  90. trial = trial + 1
  91. IF trial < 10000 THEN GOTO restart
  92.  
  93. 'report results
  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
  108. PRINT "Total "; tot
  109. PRINT " Lowest count "; low; " for i = "; saveLowI
  110. PRINT "Highest count "; high; " for i = "; saveHighI
  112.  
  113.  




« Last Edit: October 15, 2020, 09:23:41 pm by bplus »
Logged
Pages: 1 2 [3]   Go Up
« previous next »