( pme | 2021. 12. 31., p – 01:07 )

É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
$