Data commit

Task/Rate-counter/BaCon/rate-counter.bacon

@@ -0,0 +1,18 @@
+' Rate counter
+FOR i = 1 TO 3
+    GOSUB timeit
+NEXT
+
+i = 2000
+GOSUB timeit
+END
+
+LABEL timeit
+    iter = 0
+    starter = TIMER
+    WHILE TRUE DO
+        INCR iter
+        IF TIMER >= starter + i THEN BREAK
+    WEND
+    PRINT iter, " iterations in ", i, " millisecond", IIF$(i > 1, "s", "")
+    RETURN