vitalif
/
langs-performance
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Same format with perl

master
Vitaliy Filippov 2020-01-23 02:07:47 +03:00
parent c2a378abce
commit b113d7e2b1
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
primes.pl
View File

@ -1,5 +1,6 @@
use strict;
use warnings;
use Time::HiRes qw(time);
sub get_primes7($) {
my ($n) = @_;
@ -36,11 +37,16 @@ sub get_primes7($) {
}
my $startTime = time();
my $periodTime = $ENV{'RUN_TIME'};
my $periodTime = $ENV{RUN_TIME} || 5;
my @res;
while ((time() - $startTime) < $periodTime) {
my $iterations = 0;
while ((time() - $startTime) < $periodTime || $iterations < 3) {
@res = get_primes7(10000000);
print "Found ".(scalar @res)." prime numbers.\n";
$iterations++;
}
my $resultTime = time() - $startTime;
printf("Perl: %d iterations in %.03f seconds = %.03f seconds per 30 iterations\n",
$iterations, $resultTime, $resultTime/$iterations*30);

2
primes.rs
View File

@ -1,3 +1,5 @@
// rustc -O -o primes_rs primes.rs; ./primes_rs
use std::env;
use std::time::{Instant, Duration};