История изменений
Исправление q0tw4, (текущая версия) :
На этом примере Perl 6 медленнее чем Perl 5 в 24.72340425531914893617 раза.
Так давайте меряться пи.. тоесть перлами
$ perl6 -v
This is Rakudo version 2015.12-46-gd08e043 built on MoarVM version 2015.12 implementing Perl 6.c.
$ perl -v
This is perl 5, version 22, subversion 0 (v5.22.0) built for MSWin32-x64-multi-thread
$ uname -a
MSYS_NT-10.0-WOW DESKTOP-IUO8RDB 2.3.0(0.290/5/3) 2015-09-15 09:26 i686 Msys
$ cat s.pl
my $sum = 0;
for my $i (1..1000000) {
$sum += $i;
}
print $sum . "\n"
$ time perl s.pl
500000500000
real 0m0.154s
user 0m0.000s
sys 0m0.015s
$ cat s6.pl
use v6;
say [+] 1..1000000;
$ time perl6 s6.pl
500000500000
real 0m0.308s
user 0m0.000s
sys 0m0.015s
Аха так и есть, в 2 раза медленнее. Хотя может можно типизировать данное дело (или еще как поменять) и станет шустрее. Впрочем реалтайм на нем всеравно никто писать не будет. Вот помню когда он был на пароте, он вроде как на пустом месте тупил дико...
Исходная версия q0tw4, :
На этом примере Perl 6 медленнее чем Perl 5 в 24.72340425531914893617 раза.
Так давайте меряться пи.. тоесть перлами
$ perl6 -v
This is Rakudo version 2015.12-46-gd08e043 built on MoarVM version 2015.12 implementing Perl 6.c.
$ perl -v
This is perl 5, version 22, subversion 0 (v5.22.0) built for MSWin32-x64-multi-thread
$ uname -a
MSYS_NT-10.0-WOW DESKTOP-IUO8RDB 2.3.0(0.290/5/3) 2015-09-15 09:26 i686 Msys
$ cat s.pl
my $sum = 0;
for my $i (1..1000000) {
$sum += $i;
}
print $sum . "\n"
$ time perl s.pl
500000500000
real 0m0.154s
user 0m0.000s
sys 0m0.015s
$ cat s6.pl
use v6;
say [+] 1..1000000;
$ time perl6 s6.pl
500000500000
real 0m0.308s
user 0m0.000s
sys 0m0.015s
Аха так и есть, в 2 раза медленнее. Хотя может можно типизировать данное дело (или еще как поменять) и станет шустрее. Впрочем реалтайм на нем всеравно никто писать не будет. Вот помню когда он был на пароте он вроде как на пустом месте тупил дико...