Task

Write a program which uses a timer (with the least granularity available
on your system) to time how long a function takes to execute.

Whenever possible, use methods which measure only the processing time used
by the current process; instead of the difference in system time
between start and finish, which could include time used by
other processes on the computer.

This task is intended as a subtask for Measure relative performance of sorting algorithms implementations.




declare (start_time, finish_time) float (18);
 
start_time = secs();
 
do i = 1 to 10000000;
   /* something to be repeated goes here. */
end;
finish_time = secs();
 
put skip edit ('elapsed time=', finish_time - start_time, ' seconds')
   (A, F(10,3), A);
   /* gives the result to thousandths of a second. */
 
/* Note: using the SECS function takes into account the clock */
/* going past midnight. */