readme upd

examples/bulls.vtl

@@ -0,0 +1,53 @@
+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