Bulls and cows: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 5,055: | Line 5,055: | ||
You got it! |
You got it! |
||
</pre> |
</pre> |
||
=={{header|ZX Spectrum Basic}}== |
|||
{{trans|QBasic}} |
|||
<lang zxbasic>10 DIM n(10): LET c$="" |
|||
20 FOR i=1 TO 4 |
|||
30 LET d=INT (RND*9+1) |
|||
40 IF n(d)=1 THEN GO TO 30 |
|||
50 LET n(d)=1 |
|||
60 LET c$=c$+STR$ d |
|||
70 NEXT i |
|||
80 LET guesses=0 |
|||
90 INPUT "Guess a 4-digit number (1 to 9) with no duplicate digits: ";guess |
|||
100 IF guess=0 THEN STOP |
|||
110 IF guess>9999 OR guess<1000 THEN PRINT "Only 4 numeric digits, please": GO TO 90 |
|||
120 LET bulls=0: LET cows=0: LET guesses=guesses+1: LET g$=STR$ guess |
|||
130 FOR i=1 TO 4 |
|||
140 IF g$(i)=c$(i) THEN LET bulls=bulls+1: GO TO 160 |
|||
150 IF n(VAL g$(i))=1 THEN LET cows=cows+1 |
|||
160 NEXT i |
|||
170 PRINT bulls;" bulls, ";cows;" cows" |
|||
180 IF c$=g$ THEN PRINT "You won after ";guesses;" guesses!": GO TO 10 |
|||
190 GO TO 90 |
|||
</lang> |