Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Untitled

a guest Oct 7th, 2017 63 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1.    procedure Run_Iterations (Iterations, Times : Natural) is
  2.       use Ada.Calendar;
  3.       Start_Time, End_Time : Time;
  4.    begin
  5.       Ada.Text_IO.Put_Line ("Running Iterations...");
  6.       for T in 1 .. Times loop
  7.          Start_Time := Clock;
  8.          for I in 1 .. Iterations loop
  9.             Run_Once;
  10.          end loop;
  11.          End_Time := Clock;
  12.          Ada.Text_IO.Put_Line (Float'Image (Float (End_Time - Start_Time) / Float (Iterations) * 1_000.0) & " ms");
  13.       end loop;
  14.    end Run_Iterations;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top