54 lines
747 B
Plaintext
54 lines
747 B
Plaintext
10 I=1
|
|
20 J=1
|
|
30 :I)='/10*0+%
|
|
40 #=:I)=0*30+(0<:I)*70)
|
|
50 #=:I)=:J)*20
|
|
60 J=J+1
|
|
70 #=J<I*50
|
|
80 I=I+1
|
|
90 #=4>I*20
|
|
100 ?="BULLS AND COWS"
|
|
110 ?="--------------"
|
|
120 ?=""
|
|
125 T=0
|
|
130 T=T+1
|
|
140 ?="GUESS? ";
|
|
150 G=?
|
|
160 #=G<1234+(G>9877)*510
|
|
170 I=8
|
|
180 G=G/10
|
|
190 :I)=%
|
|
200 I=I-1
|
|
210 #=4<I*180
|
|
220 #=:5)*:6)*:7)*:8)=0*510
|
|
230 I=6
|
|
240 J=5
|
|
250 #=:I)=:J)*510
|
|
260 J=J+1
|
|
270 #=J<I*250
|
|
280 I=I+1
|
|
290 #=I<9*240
|
|
300 B=0
|
|
310 C=0
|
|
320 I=1
|
|
330 B=:I)=:I+4)+B
|
|
340 J=1
|
|
350 C=(I=J=0)*(:I)=:J+4))+C
|
|
360 J=J+1
|
|
370 #=4>J*350
|
|
380 I=I+1
|
|
390 #=4>I*330
|
|
400 ?="BULLS: ";
|
|
410 ?=B
|
|
420 ?=", COWS: ";
|
|
430 ?=C
|
|
440 ?=""
|
|
450 #=B<4*130
|
|
460 ?=""
|
|
470 ?="YOU GOT IT IN ";
|
|
480 ?=T
|
|
490 ?=" TRIES!"
|
|
500 #=1000
|
|
510 ?="BAD GUESS - GUESS NEEDS TO BE 4 UNIQUE DIGITS WITHOUT ZEROES"
|
|
520 #=140
|