/vendor/peg/examples/bench.bas

http://github.com/feyeleanor/RubyGoLightly · Visual Basic · 8 lines · 8 code · 0 blank · 0 comment · 1 complexity · 50b088dc0d133eba0556a24910fdb38b MD5 · raw file 

    

  1. 100 let n=100000
    2. 

  2. 120 let m=0
    3. 

  3. 110 let s=0
    4. 

  4. 130 let m=m+1
    5. 

  5. 140 let s=s+m
    6. 

  6. 150 if m<n then goto 130
    7. 

  7. 160 print "interpreted ", n*3, " lines of code; answer is ", s
    8. 

  8. 170 end
    9.