Épp itt az ideje, a perl már most 2x olyan gyors.
#!/usr/bin/perl
use strict;
use warnings;
print "$^V\n";
sub teszt
{
my $num = shift;
--$num;
my $acc = 0;
for my $i (0 .. $num) {
for my $j (0 .. $num) {
$acc += $i ^ $j;
}
}
print "$acc\n";
}
teszt(10_000);
exit 0;
$ time -p ./speed.py
3.9.2 (default, Feb 28 2021, 17:03:44)
[GCC 10.2.1 20210110]
642122061696
real 13.69
user 13.68
sys 0.00
$ time -p ./speed.pl
v5.32.1
642122061696
real 6.96
user 6.96
sys 0.00
$