Bulls and cows: Difference between revisions

=={{header|VTL-2}}==

<syntaxhighlight lang="VTL2">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</syntaxhighlight>

{{out}}

<pre>BULLS AND COWS

--------------

GUESS? 1234

BULLS: 0, COWS: 1

GUESS? 5678

BULLS: 0, COWS: 2

GUESS? 1978

BULLS: 1, COWS: 2

GUESS? 2978

BULLS: 1, COWS: 2

GUESS? 3978

BULLS: 1, COWS: 2

GUESS? 4978

BULLS: 1, COWS: 3

GUESS? 7984

BULLS: 1, COWS: 3

GUESS? 8947

BULLS: 4, COWS: 0

YOU GOT IT IN 8 TRIES!</pre>