LINUX.ORG.RU

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

Исправление Darth_Revan, (текущая версия) :

Я всё жду, когда второй скрипт хотя бы приблизится к первому по скорости выполнения:

#!/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();
#!/usr/bin/env rakudo
use v6;

sub stub() {
    return;
}

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

Исходная версия Darth_Revan, :

Я всё жду, когда второй скрипт хотя бы приблизится к первому по скорости выполнения:

#!/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();
#!/usr/bin/env raku
use v6;

sub stub() {
    return;
}

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