/vendor/peg/examples/bench.bas
Visual Basic | 8 lines | 8 code | 0 blank | 0 comment | 1 complexity | 50b088dc0d133eba0556a24910fdb38b MD5 | raw file
1100 let n=100000 2120 let m=0 3110 let s=0 4130 let m=m+1 5140 let s=s+m 6150 if m<n then goto 130 7160 print "interpreted ", n*3, " lines of code; answer is ", s 8170 end