Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: bplus on October 11, 2020, 04:35:43 pm

Title: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 04:35:43 pm
You know the Hi Lo Number Guessing Game where you keep guessing until you guess a secret number between 1 and 100.

Could you tell if the game had no secret number? Can you create such a game?
Title: Re: Hi Lo without Secret Number?
Post by: jack on October 11, 2020, 04:48:49 pm
who is doing the guessing, the user or the PC?
Title: Re: Hi Lo without Secret Number?
Post by: STxAxTIC on October 11, 2020, 05:07:40 pm
I want to see something in this question, but I can't yet - are you saying that the computer says "go higher" or "go lower" with a given guess, but you never get it right?

Just choose an irrational number for an answer, the user can never type it all out.
Title: Re: Hi Lo without Secret Number?
Post by: jack on October 11, 2020, 05:07:59 pm
ok, bplus
here's a small progie that will guess a number that you pick between 1 and 127
Code: [Select]
_TITLE "number guess" 
PRINT " Think of an Integer Number between 1 and 127"
PRINT "press RETURN when you have picked a number"
PRINT "and I will present you with 7 screens of numbers"
PRINT "on each screen of numbers, see if your number is there"
PRINT "and answer y or n to the question"
PRINT
DIM i%, j%, m%, n%, k%, l%, p%, yn%
yn% = 0
DIM a$
m% = 7
n% = (2 ^ m%) - 1
DIM c%(m%, (2 ^ (m% - 1)))
k% = 1
l% = 1
INPUT "Press Return to start "; a$
WHILE k% < n%
    p% = 1
    FOR i% = k% TO n% STEP k% * 2
        FOR j% = i% TO i% + k% - 1
            c%(l%, p%) = j%
            p% = p% + 1
        NEXT
    NEXT
    l% = l% + 1
    k% = k% * 2
WEND
FOR i% = 1 TO m%
    FOR j% = 1 TO (2 ^ (m% - 1)) STEP 4
        PRINT USING "####"; c%(i%, j%);
        PRINT USING "####"; c%(i%, j% + 1);
        PRINT USING "####"; c%(i%, j% + 2);
        PRINT USING "####"; c%(i%, j% + 3)
    NEXT j%
    INPUT "is your number there? ", a$
    IF a$ = "y" THEN yn% = yn% + c%(i%, 1)
    CLS
NEXT i%
PRINT "your number is "; yn%
SLEEP
Title: Re: Hi Lo without Secret Number?
Post by: jack on October 11, 2020, 05:19:58 pm
version 2, pick an integer between 1 and 31
Code: [Select]
_TITLE "number guess"
DIM a$
m% = 5
n% = (2 ^ m%) - 1
PRINT " Think of an Integer Number between 1 and "; n%
PRINT "press RETURN when you have picked a number"
PRINT "and I will present you with "; m%; " screens of numbers"
PRINT "on each screen of numbers, see if your number is there"
PRINT "and answer y or n to the question"
PRINT
DIM i%, j%, k%, l%, p%, yn%
yn% = 0
DIM c%(m%, (2 ^ (m% - 1)))
k% = 1
l% = 1
INPUT "Press Return to start "; a$
WHILE k% < n%
    p% = 1
    FOR i% = k% TO n% STEP k% * 2
        FOR j% = i% TO i% + k% - 1
            c%(l%, p%) = j%
            p% = p% + 1
        NEXT
    NEXT
    l% = l% + 1
    k% = k% * 2
WEND
FOR i% = 1 TO m%
    FOR j% = 1 TO (2 ^ (m% - 1)) STEP 4
        PRINT USING "####"; c%(i%, j%);
        PRINT USING "####"; c%(i%, j% + 1);
        PRINT USING "####"; c%(i%, j% + 2);
        PRINT USING "####"; c%(i%, j% + 3)
    NEXT j%
    INPUT "is your number there? ", a$
    IF a$ = "y" THEN yn% = yn% + c%(i%, 1)
    CLS
NEXT i%
PRINT "your number is "; yn%
SLEEP
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 05:32:29 pm
Here is a reminder how the usual game of Hi Lo goes:
Code: QB64: [Select]
  1. 'now 4 lines
  2. 1 num = ABS(INT(99 * SIN(TIMER * RND)))
  3. 2 INPUT "Guess my number between 1 and 100 (inclusive) ", guess
  4. IF guess < num THEN PRINT "Higher" ELSE IF guess > num THEN PRINT "Lower" ELSE IF guess = num THEN PRINT "Correct. You Win"
  5. IF guess = num THEN GOTO 1 ELSE GOTO 2
  6.  

Line 1 would normally be:

Code: QB64: [Select]
  1. num = int(rnd *100) + 1

The program generally starts by picking a random number between 1 and 100 and having the player/user guess. If the guess is not the number, then the program says if the guess was too High or too Low, thus the name of the Game Hi Lo.

One can write a program to appear to be using a Random number "secret" but in fact never has a secret number. It goes by other things to say if correct or too high or too low.

The numbers guessed will have the same random distribution between 1 and 100 as a normal program with a secret number. ie with 10000 games played, each number guessed between 1 and 100 will have been played around 100 times.
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 05:35:40 pm
Hey jack,

I know and seen your version too, but not what I had in mind for here.

I did that trick or variation with 27 cards. Cool!
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 05:39:19 pm
Yes, @johnno56 @jack  (I saw Spock and just assumed Johnno Ha, ha!) you are guessing a number from 1 and 100 and the computer program has not set a secret number but "fakes it" so to speak when it says you are too high or low or have guessed the number.
Title: Re: Hi Lo without Secret Number?
Post by: STxAxTIC on October 11, 2020, 05:42:52 pm
I am so confused. Isn't f(RND) just as unpredictable as RND in the way you've used it? What's *not* secret about RND? You never know what it's result is until you bite into it.
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 05:43:14 pm
@STxAxTIC  the program does say go higher or too high... but it also will say if you guessed.

BTW there is a 1 in 100 change you will guess right, right off the bat!
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 05:46:34 pm
Quote from: STxAxTIC on October 11, 2020, 05:42:52 pm
I am so confused. Isn't f(RND) just as unpredictable as RND in the way you've used it? What's *not* secret about RND? You never know what it's result is until you bite into it.

Yes well RND is used quite a bit but no random number secret is set in stone when you start guessing.

And when you play the game you would not be able to tell the difference.
Title: Re: Hi Lo without Secret Number?
Post by: Gets on October 11, 2020, 07:10:14 pm
Quote from: bplus on October 11, 2020, 04:35:43 pm
You know the Hi Lo Number Guessing Game where you keep guessing until you guess a secret number between 1 and 100.

Could you tell if the game had no secret number? Can you create such a game?

A correct answer would be generated by high/low responses regardless of whether it was chosen before the game started, and reaching that value is exactly where players would be able to tell no such number existed.

So the goal of such a program would be to keep track of previous guesses and responses and give false information for as long as possible without getting caught. Basically looking for an opportunity to tell the player that 31 is low, after it already said 30 is high, without the player noticing.

It's doable, but probably needs to be based on a more complex game in order to really pull it off.

Something like a Rubix Cube that shuffles squares around when  you aren't looking.
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 07:40:33 pm
Quote
Basically looking for an opportunity to tell the player that 31 is low, after it already said 30 is high, without the player noticing.

Nope, no way, that's lying and cheating. It does track the low and high it's told the player and stays consistent with what it says.

And like in jack's variation you must arrive at the answer in maybe 7 guesses or less specially if user is using a Binary search method.
Title: Re: Hi Lo without Secret Number?
Post by: SMcNeill on October 11, 2020, 08:00:43 pm
Code: QB64: [Select]
  1. 1 SCREEN _NEWIMAGE(1280, 720, 32)
  2. 2
  3. 3 FOR j = 0 TO 1
  4.   4 CLS
  5.   5 PRINT "Bite MY Lucky Seven"
  6.   6 PRINT "Most games want you to guess from 1 to 100, but I'm smarter than them."
  7.   7 PRINT "Choose any whole number from 0 to 127, and give me 7 guesses."
  8.   8 PRINT "I bet after that time, I can tell you what the number is."
  9.   9 PRINT CHR$(13); "Choose your number and press any key to begin"
  10.   10 junk$ = INPUT$(1)
  11.   11 guess = 64
  12.   12 CLS
  13.   13 FOR i = 5 TO 0 STEP -1
  14.       14 guess = guess + (2 AND a) * 2 ^ (i) - (1 AND a) * 2 ^ (i + 1)
  15.       15 PRINT "For Guess #"; (6 - i); ", my guess is"; guess
  16.       16 PRINT CHR$(13); "Am I:  (0) Correct   (1) High   (2) Low"; CHR$(13)
  17.       17 PRINT "PRESS 0, 1, or 2 please for your answer =>";
  18.       18 a = VAL(INPUT$(1))
  19.       19 PRINT a; CHR$(13); CHR$(13)
  20.       20 i = i - ((a - 1) AND 2) / 2 * i 'answer 0, and we win
  21.   21 NEXT
  22.   22 guess = guess + (2 AND a) * 2 ^ (i) - (1 AND a) * 2 ^ (i +1)
  23.   23 PRINT "Your number is "; guess
  24.   24 PRINT
  25.   25 PRINT "Would you like to:     (1) Try again"
  26.   26 PRINT "                       (2) Run away crying, unable to stop my awesome power"
  27.   27 a = VAL(INPUT$(1))
  28.   28 j = 1 - (1 AND a)
  29. 29 NEXT
  30. 30 END

There’s my overly complex version of this problem, without any use of IFs, or conditional statements.  It was my entry in an old 30-line code challenge back over at .net, ages ago.  ;)
Title: Re: Hi Lo without Secret Number?
Post by: jack on October 11, 2020, 08:22:37 pm
you can also find it at the Rosetta Code http://rosettacode.org/wiki/Guess_the_number/With_feedback_(player)
I translated the bbc basic code http://rosettacode.org/wiki/Guess_the_number/With_feedback_(player)#BBC_BASIC
Code: QB64: [Select]
  1. min% = 1
  2. max% = 100
  3. PRINT "Think of a number between "; min%; " and "; max%
  4. PRINT "I will try to guess your number."
  6.     guess% = (min% + max%) \ 2
  7.     PRINT "My guess is "; guess%
  8.     INPUT "Is it higher than, lower than or equal to your number ", answer$
  9.     SELECT CASE LEFT$(answer$, 1)
  10.         CASE "L", "l": min% = guess% + 1
  11.         CASE "H", "h": max% = guess% - 1
  12.         CASE "E", "e": EXIT DO
  13.         CASE ELSE: PRINT "Sorry, I didn't understand your answer."
  14.     END SELECT
  15. LOOP UNTIL FALSE
  16. PRINT "Goodbye."
  18.  
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 08:38:49 pm
Steve, jack you've got it backwards the program is not trying to guess the user's number. The user is trying to narrow down what the program has made up (though the challenge is to not make up any secret number).

OK time to translate the example I worked my Hi Lo Game version from.
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 08:47:48 pm
I made my version of Hi Lo Game after playing around with this:
Code: QB64: [Select]
  1.  
  2. 'ref tsh73 from JB forum 2020-10-08
  3. 'https://justbasiccom.proboards.com/thread/567/guess-number-secret
  4. 'translated to QB64 b+ 2020-10-11
  5.  
  6.  
  7. 'guessANumber
  8. '   idea
  9. '   instead of making a number
  10. '   we deside on each turn
  11. 'of cource we should store numbers tried to say "no" again
  12. 'and fix probability according to not tried numbers
  13.  
  14. 'logic: loop
  15. '   get a number
  16. '   check if number is new
  17. '       if it is,
  18. '       with probabilty 1/#(numbers left) say Yes and stop
  19. '       (or else)  store it
  20. '       else say No
  21.  
  22. PRINT "---- Guess a number ----"
  23. PRINT "I made up a number, (1..9)"
  24. PRINT "- you guess it. That's all ;)"
  26. PRINT "No! Not quite."
  27. PRINT "Actually I do not made a number."
  28. PRINT "I will deside on the go."
  30.  
  31. tried$ = ""
  32.  
  34.     INPUT "Make your guess (1..9): "; guess
  35.     IF guess < 1 OR guess > 9 OR INT(guess) <> guess THEN
  36.         PRINT "Guess not valid"
  37.         GOTO cont
  38.     END IF
  39.     IF INSTR(tried$, _TRIM$(STR$(guess))) THEN
  40.         PRINT "Already tried that"
  41.         GOTO cont
  42.     END IF
  43.     numsLeft = 9 - LEN(tried$)
  44.     'print "1/";numsLeft,  'and the probability is
  45.     IF RND < 1 / numsLeft THEN
  46.         PRINT "You did it!"
  47.         EXIT WHILE
  48.     END IF
  49.     'else
  50.     tried$ = tried$ + _TRIM$(STR$(guess))
  51.     PRINT "Nope, try again"
  52.     cont:
  54. PRINT "-=* thanks for playing *=-"
  56.  
  57.  

BTW tsh73 is generous programming teacher in Russia, so maybe we can forgive his mistakes of English spelling and grammar.
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 08:57:23 pm
As a joke, I posted this for reply to tsh73:

Code: QB64: [Select]
  1. _TITLE "Guess the cruel joke." ' b+ 2020-10-08 reply to tsh73 trans to QB64
  3.     INPUT "Make your guess (1..9): "; guess
  4.     IF guess < 1 OR guess > 9 OR INT(guess) <> guess THEN
  5.         PRINT "Guess not valid"
  6.         GOTO cont
  7.     END IF
  8.     IF INSTR(tried$, _TRIM$(STR$(guess))) THEN
  9.         PRINT "Already tried that"
  10.         GOTO cont
  11.     END IF
  12.     IF LEN(tried$) >= 8 THEN
  13.         PRINT "You did it!"
  14.         EXIT WHILE
  15.     END IF
  16.     'else
  17.     tried$ = tried$ + _TRIM$(STR$(guess))
  18.     PRINT "Nope, but you're getting closer!"
  19.     cont:
  21. PRINT "-=* thanks for playing *=-"
  23.  
  24.  
Title: Re: Hi Lo without Secret Number?
Post by: STxAxTIC on October 11, 2020, 09:20:09 pm
waaait, the backwards version is interesting...

Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 11, 2020, 09:30:07 pm
Quote from: STxAxTIC on October 11, 2020, 09:20:09 pm
waaait, the backwards version is interesting...

Sure check this out:
https://www.qb64.org/forum/index.php?topic=1854.msg110907#msg110907
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 12, 2020, 11:04:54 am
Here is a distribution of "Secret Numbers" finally determined at games end in 10,000 trials:
Code: [Select]
Secret Numbers results:
Program errors = 0
1             92
2             94
3             101
4             111
5             110
6             100
7             114
8             104
9             91
10            89
11            82
12            122
13            97
14            97
15            115
16            109
17            96
18            97
19            91
20            103
21            108
22            95
23            104
24            99
25            99
26            108
27            104
28            91
29            102
30            105
31            97
32            81
33            106
34            101
35            107
36            89
37            99
38            88
39            87
40            102
41            100
42            107
43            92
44            81
45            84
46            103
47            100
48            98
49            89
50            95
51            107
52            102
53            105
54            95
55            110
56            92
57            119
58            110
59            106
60            93
61            92
62            84
63            103
64            113
65            94
66            95
67            99
68            92
69            99
70            110
71            91
72            96
73            95
74            87
75            93
76            95
77            111
78            102
79            101
80            111
81            113
82            110
83            115
84            95
85            105
86            106
87            107
88            92
89            93
90            118
91            95
92            106
93            91
94            104
95            106
96            104
97            98
98            97
99            101
100           106
Total 10000
 Lowest count 81 for i = 32
Highest count 122 for i = 12


As you can see no holes and no heavy favorites. This tells me this game plays the same as one in which a secret number is decided before the start of each game or round.
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 12, 2020, 11:18:34 am
BTW here is my QB64 version of the backwards (the program guesses my number) Hi Lo Game from 2019:
Code: QB64: [Select]
  1. '2019-09-14
  3.     Hi = 101: Lo = 0
  4.     DO
  5.         guess = INT((Hi - Lo) / 2) + Lo
  6.         PRINT "AI guesses your number ( 1 to 100) is "; guess
  7.         INPUT "Enter l for low, c for correct, h for high > "; r$
  8.         IF r$ = "l" THEN Lo = guess
  9.         IF r$ = "h" THEN Hi = guess
  10.     LOOP UNTIL r$ = "c"
  11.     PRINT "Yeah, start another..."
  13.  
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 12, 2020, 11:34:59 am
And just to round things out, here is my version of the Standard Hi Lo Game written in SB (Shorthand Basic) for my Interpreter built with QB64:
Code: QB64: [Select]
  1. Hi lo game SB.txt b+ 2020-03-07
  2. [
  3.     n r int(rnd * 100) + 1
  4.     n c 0
  5.     [
  6.         ? g Guess my number from 1 to 100, (0 quits)
  7.         i  g >= 1
  8.             n c c + 1
  9.             i  g >  r
  10.                 . Too High!
  11.             e
  12.                 i  g < r
  13.                     . Too Low!
  14.                 e
  15.                     . You guessed in c guesses!
  16.                     .
  17.                     x
  18.                 f
  19.             f
  20.         e
  21.             . You signaled quit, goodbye!
  22.             z
  23.         f
  24.     ]  
  25. ]
  26.  

[ starts a loop
] ends a loop

n sets a number variable the very next item in the line is the variable name and the next stuff is number literal or numeric expression for the variables value. (So here, r is the secret number set at the beginning of the round and c is for count as in counting the number of guesses.)

? starts an INPUT statement, next item is the variable name being set and the rest is the propmt string, notice NO double quotes!

i starts an IF branch decision, the stuff following is the expression to evaluate if evaluates to True then execute the next statement else look for an f (the end of an IF block or an e the ELSE block to execute.

. starts a PRINT statement, notice no double quotes BUT if one of the isolated letters or words is a variable name the variable's value will be substituted in for the name.

x of course is for exit loop, the only way out of [ loop code ]

For comments, just don't start a line with a command like [].nxief, but for your comfort use ' to feel safe it wont be used for anything else.

BTW the indents are optional but each executable line must start with executable command. So line 1 is just  comment.

One of these days I am going to work in strings and SUBs or FUNCTIONs.

Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 12, 2020, 03:57:56 pm
BTW I found the 256 Cards Trick, program can pick your card out of 256 cards by telling it which line of 4 it's in, do this 4 X's and it will count out your favorite number of cards and your card will be last shown.

https://www.qb64.org/forum/index.php?topic=1865.msg111002#msg111002

But again, this is backwards to the challenge presented in OP.
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 13, 2020, 12:55:02 pm
Update: tsh73 says my code looks OK (for Hi Lo Game that does not start with established secret numbers) but might have found something literally funny about frequency distribution of resulting "secret" numbers from pure random guessing.

I was only checking guessing with some intelligence being applied including sliding down my guess by 1 number each time, those were fine but pure random guessing produced a frequency distribution chart that lifted up at both ends like a giant smiling at a joke!

hmm... got to check that out, it may be some artifact from the chart system he is using but like I said I never thought to check pure random guessing.

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

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

So there it is so far for those of you into esoteric program problems :)
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 13, 2020, 07:17:29 pm
My independent test confirms tsh73 report is correct, the graph of the distribution of jump way up at the two ends:
Code: QB64: [Select]
  1. ' Hi Lo Game WO Secret Number 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 = Hi - 1 THEN 'guess must of been too high
  55.                 'print Lo, Hi, "Your guess was too high.", r, p
  56.                 Hi = PlayerGuess
  57.             ELSE
  58.                 IF PlayerGuess = Lo + 1 THEN
  59.                     'print Lo, Hi, "Your guess was too low.", r, p
  60.                     Lo = PlayerGuess
  61.                 ELSE 'toss coin if too high or low
  62.                     IF RND < .5 THEN
  63.                         'print Lo, Hi, "Your guess was too low.", r, p
  64.                         Lo = PlayerGuess
  65.                     ELSE
  66.                         'print Lo, Hi, "Your guess was too high.", r, p
  67.                         Hi = PlayerGuess
  68.                     END IF
  69.                 END IF
  70.             END IF
  71.         END IF
  72.     ELSE 'going wrong way with guessing, not narrowing down with current guess this will happen allot!!!
  73.         IF PlayerGuess >= Hi THEN
  74.             'Print "Your guess was too high."
  75.         ELSE
  76.             'print "Your guess was too low."
  77.         END IF
  78.     END IF
  79.     cont:
  80.     'INPUT "Press enter to continue..."; wait$
  82. IF Guessed <> 1 THEN
  83.     'PRINT "Yikes! Programming error, did not find secret number."
  84.     programErrors = programErrors + 1
  86.     secrets(PlayerGuess) = secrets(PlayerGuess) + 1
  88. trial = trial + 1
  89. IF trial < 10000 THEN GOTO restart
  90.  
  91. 'report results
  93. PRINT "Secret Numbers results:"
  94. PRINT "Program errors = "; programErrors
  95. low = 1000
  96. FOR i = 1 TO 100
  97.     PRINT i, secrets(i) 'that's right in JB you can scroll output screen to review all 100
  98.     tot = tot + secrets(i)
  99.     IF secrets(i) < low THEN low = secrets(i): saveLowI = i
  100.     IF secrets(i) > high THEN high = secrets(i): saveHighI = i
  101.     IF i MOD 20 = 0 THEN
  102.         INPUT " Press enter to cont..."; w$
  103.         CLS
  104.     END IF
  106. PRINT "Total "; tot
  107. PRINT " Lowest count "; low; " for i = "; saveLowI
  108. PRINT "Highest count "; high; " for i = "; saveHighI
  110.  
Title: Re: Hi Lo without Secret Number?
Post by: SMcNeill on October 14, 2020, 08:10:16 pm
One caveat:  I haven't tried any of the code in this topic yet, to actually see what the heck type of game we're supposed to be making.  I didn't want to be inspired (or limited) by looking over anyone else's work first.  Instead, I tried to make a little program which does a magic number, without having a magic number, like I understood from bplus's posts..

Regardless of whether or not this is quite what we were looking for, here's a Steve Magic Number (without a magic number) program for everyone to enjoy:

Code: QB64: [Select]
  2. min = 1: max = 100
  3.  
  5. PRINT "Guess my magic number.  It's between 1 and 100!"
  6. PRINT "If you guess high, I'll tell you to guess lower,"
  7. PRINT "and if you guess low, I'll tell you to guess higher."
  8.  
  9.  
  11.     NumberOfGuesses = NumberOfGuesses + 1
  12.     PRINT
  13.     PRINT "How many guesses will it take for you to find my number?"
  14.     PRINT "Let's find out! Give me your Guess #"; NumberOfGuesses;
  15.     INPUT " "; Guess
  16.     result = 0
  17.     IF Guess < min THEN result = 1
  18.     IF Guess > max THEN result = -1
  19.     IF result = 0 THEN 'it's a good guess, progressing the game.
  20.         target = (min + max) \ 2
  21.         IF Guess >= target THEN
  22.             IF min - max = 0 THEN result = 0 ELSE min = Guess + 1: result = 1
  23.         ELSE
  24.             max = Guess - 1: result = -1
  25.         END IF
  26.     END IF
  27.     COLOR 4
  28.     IF result < 0 THEN
  29.         PRINT "PLEASE GUESS LOWER"
  30.     ELSEIF result > 0 THEN
  31.         PRINT "PLEASE GUESS HIGHER"
  32.     ELSE
  33.         PRINT "YEP!"
  34.         PRINT "My secret number was "; Guess
  35.         COLOR 7
  36.         END
  37.     END IF
  38.     COLOR 15
  40.  
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 14, 2020, 09:32:17 pm
Quote
I haven't tried any of the code in this topic yet, to actually see what the heck type of game we're supposed to be making.  I didn't want to be inspired (or limited) by looking over anyone else's work first.  Instead, I tried to make a little program which does a magic number, without having a magic number, like I understood from bplus's posts.

I don't like to be influenced either, try the challenge raw first, see what first impressions will bring up.

Yeah Steve, that's going the right way now but the game plays the same over and over and over (because I play same numbers over and over, I always start at 50 then 75 or 25...)  I don't think RANDOMIZE TIMER would even help.

Also I am guessing the game will always take 6 guesses, that's as cruel as my version I posted as joke. You could just count the player's guesses and give them the game after a max of 7 but could be after any guess 1 to 7 if they were all different. Man! that would meet the criteria and produce a wide range of secret numbers ultimately established at the end of the game. Wish I thought of that days ago, I just found a Hi Lo Game without Secret Number with much improved frequency distribution.

Steve thanks for hanging in there with this crazy stuff!

Oh I should try different number starts, oh boy!
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Hi Lo without Secret Number?
Post by: SMcNeill on October 14, 2020, 09:54:54 pm
Who ever said we used integers?  :P

How the heck did you get stuck between 29 and 30?  I’ll have to dig into that issue.

And it’s only 6 or 7 guesses, if you narrow it down by a binary pattern.  50, +/- 25, +/- 12, +/- 6, +/- 3, +/- 1, +/- 1.

When I came up with this little concept, the idea was basically: How can the AI stretch out the game to tease the player the longest, making them use as many guesses as possible?

BEST game should be 6-7 guesses.  Worst game, could be forever, if you don’t read the instructions ((or get stuck in and endless loop).

I’ll play around a bit tomorrow, and see what the glitch is, and I might even toss in a random target for you to shoot at with it, just so it won’t be quite as easy to tell the computer is cheating.  :)
Title: Re: Hi Lo without Secret Number?
Post by: bplus on October 14, 2020, 10:18:34 pm
Quote
You could just count the player's guesses and give them the game after a max of 7 but could be after any guess 1 to 7 if they were all different. Man! that would meet the criteria and produce a wide range of secret numbers ultimately established at the end of the game. Wish I thought of that days ago, I just found a Hi Lo Game without Secret Number with much improved frequency distribution.

On 2nd thought no that won't work. You have to pay attention to players guesses and remain consistent in what you say with go higher or go lower, so the number still has to be narrowed down and you have to be careful in the narrowing down. I am pretty sure you have to test if 1 away from Lo or Hi and if it's going to be reported as a miss then only one way to go with narrowing down, no random up or down there. Maybe the glitch with Steve's code?

I was going to post my revised and improved game but now I think I will wait :)
Teaser: it has just the frequency distribution I was hoping to see of secret numbers established at end of each game ie spread pretty level from 1 to 100.
Title: Re: Hi Lo without Secret Number?
Post by: bplus 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.  




Text Only | Text with Attachments