Anonymous user
Time a function: Difference between revisions
first attempt at perl
(first attempt at perl) |
|||
Line 356:
Sum(4) takes 0.084005 seconds.
- : unit = ()
=={{header|Perl}}==
<lang perl>sub cpu_time {
my ($user,$system,$cuser,$csystem) = times;
$user + $system
}
sub time_it {
my $action = shift;
my $startTime = cpu_time();
$action->(@_);
my $finishTime = cpu_time();
$finishTime - $startTime
}
printf "Identity(4) takes %f seconds.\n", time_it(sub {shift}, 4);
# outputs "Identity(4) takes 0.000000 seconds."
sub sum {
my $x = shift;
foreach (0 .. 999999) {
$x += $_;
}
$x
}
printf "Sum(4) takes %f seconds.\n", time_it(\&sum, 4);
# outputs "Sum(4) takes 0.280000 seconds."</lang>
=={{header|Python}}==
| |||