daily pastebin goal
94%
SHARE
TWEET

Untitled

a guest Oct 7th, 2017 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
Top