История изменений

➜  ~ cat perl.pl
#!/usr/bin/env perl
use v5.12;
use warnings;

sub stub :prototype() {
    return;
}

sub main :prototype() {
    for (my $i = 0; $i < 10_000; ++$i) {
        for (my $j = 0; $j < 10_000; ++$j) {
            stub();
        }
    }
}
main();
➜  ~ time perl perl.pl

________________________________________________________
Executed in    6.04 secs   fish           external 
   usr time    6.01 secs   59.00 micros    6.01 secs 
   sys time    0.01 secs  1028.00 micros    0.00 secs 

➜  ~ cat perl6.p6
#!/usr/bin/env rakudo
use v6;

sub stub() {}

sub MAIN() {
    loop (my int $i = 0; $i < 10_000; ++$i) {
        loop (my int $j = 0; $j < 10_000; ++$j) {
            stub;
        }
    }
}

➜  ~ time raku perl6.p6

________________________________________________________
Executed in    1.12 secs   fish           external 
   usr time  1150.99 millis   85.00 micros  1150.90 millis 
   sys time   31.71 millis  1044.00 micros   30.66 millis 

➜  ~ 

➜  ~ cat perl.pl
#!/usr/bin/env perl
use v5.12;
use warnings;

sub stub :prototype() {
    return;
}

sub main :prototype() {
    for (my $i = 0; $i < 10_000; ++$i) {
        for (my $j = 0; $j < 10_000; ++$j) {
            stub();
        }
    }
}
main();⏎                                                                                                       ➜  ~ time perl perl.pl

________________________________________________________
Executed in    6.04 secs   fish           external 
   usr time    6.01 secs   59.00 micros    6.01 secs 
   sys time    0.01 secs  1028.00 micros    0.00 secs 

➜  ~ cat perl6.p6
#!/usr/bin/env rakudo
use v6;

sub stub() {}

sub MAIN() {
    loop (my int $i = 0; $i < 10_000; ++$i) {
        loop (my int $j = 0; $j < 10_000; ++$j) {
            stub;
        }
    }
}

➜  ~ time raku perl6.p6

________________________________________________________
Executed in    1.12 secs   fish           external 
   usr time  1150.99 millis   85.00 micros  1150.90 millis 
   sys time   31.71 millis  1044.00 micros   30.66 millis 

➜  ~