Rate counter: Difference between revisions
Content added Content deleted
(Add BaCon) |
|||
Line 150: | Line 150: | ||
<pre>4.428430 Seconds elapsed. |
<pre>4.428430 Seconds elapsed. |
||
225814 Loop iterations per second.</pre> |
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}}== |
=={{header|BBC BASIC}}== |