Anonymous user
Rate counter: Difference between revisions
Add BaCon
(Add BaCon) |
|||
Line 150:
<pre>4.428430 Seconds elapsed.
225814 Loop iterations per second.</pre>
=={{header|BaCon}}==
The TIMER builtin returns the elapsed time since start of program run, in milliseconds.
<lang freebasic>' 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</lang>
{{out}}
<pre>prompt$ ./rate-counter
6169 iterations in 1 millisecond
16025 iterations in 2 milliseconds
23977 iterations in 3 milliseconds
28167202 iterations in 2000 milliseconds</pre>
=={{header|BBC BASIC}}==
| |||