История изменений
Исправление 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();
}
}
}