| Welcome, Guest |
You have to register before you can post on our site.
|
|
|
| Rosetta Code Challenges |
|
Posted by: bplus - 04-26-2022, 09:17 PM - Forum: bplus
- Replies (15)
|
 |
The posts in this thread are from Rosetta Code Challenges.
You are free to post improvements.
Better IMHO is less LOC (Lines Of Code) but try to hold off on using so many colons on a line: none is perfect, one or 2 reasonable, 10 ridiculous! = too much)
_____________________________________________________________________________________________
Ken was asking about this today.
Bulls and cows: http://rosettacode.org/wiki/Bulls_and_cows
Code: (Select All) _Title "Bulls and Cows" ' found at Rosetta for Qbasic, copy 2019-01-31
'challenge is to develope AI player for this game
DefInt A-Z
Dim secret As String
Dim guess As String
Dim c As String
Dim bulls, cows, guesses, i
Randomize Timer
Do While Len(secret) < 4
c = Chr$(Int(Rnd * 10) + 48)
If InStr(secret, c) = 0 Then secret = secret + c
Loop
guesses = 0
Do
Input "Guess a 4-digit number with no duplicate digits: "; guess
guess = LTrim$(RTrim$(guess))
If Len(guess) = 0 Then Exit Do
If Len(guess) <> 4 Or Val(guess) = 0 Then
Print "** You should enter 4 numeric digits!"
GoTo looper
End If
bulls = 0: cows = 0: guesses = guesses + 1
For i = 1 To 4
c = Mid$(secret, i, 1)
If Mid$(guess, i, 1) = c Then
bulls = bulls + 1
ElseIf InStr(guess, c) Then
cows = cows + 1
End If
Next i
Print bulls; " bulls, "; cows; " cows"
If guess = secret Then
Print "You won after "; guesses; " guesses!"
Exit Do
End If
looper:
Loop
![[Image: Bulls-and-cows.png]](https://i.ibb.co/JpG8LB9/Bulls-and-cows.png)
|
|
|
|
![[Image: Screenshot-639.png]](https://i.ibb.co/xzpLXvS/Screenshot-639.png)
![[Image: Screenshot-648.png]](https://i.ibb.co/WtyBjGJ/Screenshot-648.png)
![[Image: Screenshot-637.png]](https://i.ibb.co/n69NDWT/Screenshot-637.png)
![[Image: Kong2.png]](https://i.ibb.co/W3xppvD/Kong2.png)
![[Image: Screenshot-636.png]](https://i.ibb.co/z6QGfPJ/Screenshot-636.png)
