Perl-To-Python / squares.pl
Samhugs07's picture
Uploaded source files
651ddf8
raw
history blame contribute delete
598 Bytes
use Time::HiRes qw(time); # More precise timing
$start_time = time();
@numbers = (1, 2, 3, 4, 5);
@squares = ();
$i = 0;
while ($i < scalar(@numbers)) {
$num = $numbers[$i];
$square = 0;
$k = 0;
while ($k < $num) {
$square = $square + $num;
$k = $k + 1;
}
push(@squares, $square);
$i = $i + 1;
}
$j = 0;
print "Squares:\n";
while ($j < scalar(@squares)) {
print $squares[$j], "\n";
$j = $j + 1;
}
$end_time = time();
$duration = $end_time - $start_time;
# Print with 6 decimal places
printf("Execution Time: %.6f seconds\n", $duration);