Rate counter: Difference between revisions
no edit summary
(→{{header|Fortran}}: A rethink being prompted.) |
No edit summary |
||
Line 1,522:
time used for task 3 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>
| |||