Bagels
In this game, the computer picks a 3 digit secret number using the digits 0 to 9 and you attempt to guess what it is. You are allowed up to twenty guesses. No digit is repeated. After each guess the computer will giveyou clues about your guess as follows:
PICO One digit is correct, but in the wrong place.
FERMI One digit is in the correct place.
BAGELS No digit is correct.
You will learn to draw inferences from the clues and, with practice, you’ll learn to improve your score. There are several good strategies for playing Bagels. After you havefound a good strategy, see if you can improve it or try a different strategy altogether and see if it is any better. While the program allows up to twenty guesses, if you use a good strategy it should not take more than eight guesses to get any number.
The original authors of this program are D. Resek and P. Rowe of the Lawrence Hall of Science, Berkeley, California.
Code Listing (Small Basic File: bagels.sb):
TextWindow.CursorLeft = 33 TextWindow.WriteLine("BAGELS") TextWindow.CursorLeft = 15 TextWindow.WriteLine("BIBLEBYTE BOOKS, MAPLE VALLEY, WASHINGTON") TextWindow.WriteLine("") TextWindow.WriteLine("") ' *** BAGLES NUMBER GUESSING GAME ' *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE ' *** LAWRENCE HALL OF SCIENCE, U.C. BERKELY Y=0 T=255 TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.Write("WOULD YOU LIKE THE RULES (YES OR NO) ") AD = TextWindow.Read() If Text.GetSubText(AD,1,1)="N" Then Goto LN150 EndIf TextWindow.WriteLine("") TextWindow.WriteLine("I AM THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS") TextWindow.WriteLine("MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:") TextWindow.WriteLine(" PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION") TextWindow.WriteLine(" FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION") TextWindow.WriteLine(" BAGELS - NO DIGITS CORRECT") LN150: For I=1 To 3 LN160: A[I]=Math.GetRandomNumber(10) - 1 If I-1=0 Then Goto LN200 EndIf For J=1 To I-1 If A[I]=A[J] Then Goto LN160 EndIf EndFor LN200: EndFor TextWindow.WriteLine("") TextWindow.WriteLine("O.K. I HAVE A NUMBER IN MIND.") For I=1 To 20 LN230: TextWindow.WriteLine("GUESS #"+I) Ad = TextWindow.Read() If Text.GetLength(AD)<>3 Then Goto LN630 EndIf For Z=1 To 3 A1[z]=Text.GetCharacterCode(Text.GetSubText(AD,Z,1)) EndFor For J=1 To 3 If A1[J]<48 Then Goto LN300 EndIf If A1[J]>57 Then Goto LN300 EndIf B[J]=A1[J]-48 EndFor Goto LN320 LN300: TextWindow.WriteLine("WHAT?") Goto LN230 LN320: If B[1]=B[2] Then Goto LN650 EndIf If B[2]=B[3] Then Goto LN650 EndIf If B[3]=B[1] Then Goto LN650 EndIf C=0 D=0 For J=1 To 2 If A[J]<>B[J+1] Then Goto LN390 EndIf C=C+1 LN390: If A[J+1]<>B[J] Then Goto LN410 EndIf C=C+1 LN410: EndFor If A[1]<>B[3] Then Goto LN440 EndIf C=C+1 LN440: If A[3]<>B[1] Then Goto LN460 EndIf C=C+1 LN460: For J=1 To 3 If A[J]<>B[J] Then Goto LN490 EndIf D=D+1 LN490: EndFor If D=3 Then Goto LN680 EndIf If C=0 Then Goto LN545 EndIf For J=1 To C TextWindow.Write("PICO ") EndFor LN545: If D=0 Then Goto LN580 EndIf For J=1 To D TextWindow.Write("FERMI ") EndFor LN580: If C+D<>0 Then Goto LN600 EndIf TextWindow.Write("BAGELS") LN600: TextWindow.WriteLine("") EndFor TextWindow.WriteLine("OH WELL.") TextWindow.WriteLine("THAT'S TWNETY GUESSES. MY NUMBER WAS "+100*A[1]+10*A[2]+A[3]) Goto LN700 LN630: TextWindow.WriteLine("TRY GUESSING A THREE-DIGIT NUMBER.") Goto LN230 LN650: TextWindow.WriteLine("OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN MIND") TextWindow.WriteLine("HAS NO TWO DIGITS THE SAME.") Goto LN230 LN680: TextWindow.WriteLine("YOU GOT IT!!!") TextWindow.WriteLine("") Y=Y+1 LN700: TextWindow.Write("PLAY AGAIN (YES OR NO) ") AD = TextWindow.Read() If Text.GetSubText(AD,1,1)="Y" Then Goto LN150 EndIf If Y=0 Then Goto LN750 EndIf TextWindow.WriteLine("") TextWindow.WriteLine("A "+Y+" POINT BAGELS BUFF!!") LN750: TextWindow.WriteLine("HOPE YOU HAD FUN. BYE.")
.jpg)
.jpg)