Rate counter: Difference between revisions
Content added Content deleted
(→{{header|Fortran}}: A rethink being prompted.) |
No edit summary |
||
Line 1,522: | Line 1,522: | ||
time used for task 3 was 0 seconds. |
time used for task 3 was 0 seconds. |
||
time used for task 4 was 0 seconds. |
time used for task 4 was 0 seconds. |
||
</pre> |
|||
=={{header|Ring}}== |
|||
<lang ring> |
|||
# Project : Rate counter |
|||
# Date : 2017/09/11 |
|||
# Author : Gal Zsolt (~ CalmoSoft ~) |
|||
# Email : <calmosoft@gmail.com> |
|||
see "method 1: calculate reciprocal of elapsed time:" + nl |
|||
for trial = 1 to 3 |
|||
start = clock() |
|||
tasktomeasure() |
|||
finish = clock() |
|||
see "rate = " + 100 / (finish-start) + " per second" + nl |
|||
next |
|||
see "method 2: count completed tasks in one second:" + nl |
|||
for trial = 1 to 3 |
|||
runs = 0 |
|||
finish = clock() + 100 |
|||
while clock() < finish |
|||
tasktomeasure() |
|||
if clock() < finish |
|||
runs = runs + 1 |
|||
ok |
|||
end |
|||
see "rate = " + runs + " per second" + nl |
|||
next |
|||
func tasktomeasure |
|||
for i = 1 to 100000 |
|||
next |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
method 1: calculate reciprocal of elapsed time: |
|||
rate = 6.67 per second |
|||
rate = 6.25 per second |
|||
rate = 6.67 per second |
|||
method 2: count completed tasks in one second: |
|||
rate = 5 per second |
|||
rate = 6 per second |
|||
rate = 5 per second |
|||
</pre> |
</pre> |
||