Size: a a a

2021 May 19

W

Warstone in Modern::Perl
@PerlBanjoBot
sub qwe { }
cmpthere(10**7, { sub1 => sub{}, sub2 => sub { qwe; }});
источник

P

PerlBanjoBot in Modern::Perl
syntax error at script.pl line 11, near "})"
Missing right curly or square bracket at script.pl line 11, at end of line
Execution of script.pl aborted due to compilation errors.
https://PerlBanjo.com/08e2a1c9a2
источник

W

Warstone in Modern::Perl
Ы! Не ловит изменение
источник

W

Warstone in Modern::Perl
@PerlBanjoBot
sub qwe { }
cmpthere(10**7, { sub1 => sub{}, sub2 => sub { qwe; }});
источник

SZ

Sergey Zhmylove in Modern::Perl
Таймаут
источник

P

PerlBanjoBot in Modern::Perl
Undefined subroutine &main::cmpthere called at script.pl line 11.
https://PerlBanjo.com/8b28798851
источник

W

Warstone in Modern::Perl
Да...
источник

W

Warstone in Modern::Perl
@PerlBanjoBot
sub qwe { }
cmpthese(10**7, { sub1 => sub{}, sub2 => sub { qwe; }});
источник

P

PerlBanjoBot in Modern::Perl
Undefined subroutine &main::cmpthese called at script.pl line 11.
https://PerlBanjo.com/65acf4c1f4
источник

W

Warstone in Modern::Perl
@PerlBanjoBot
use Benchmark "cmpthese";
sub qwe { }
cmpthese(10**7, { sub1 => sub{}, sub2 => sub { qwe; }});
источник

SZ

Sergey Zhmylove in Modern::Perl
@PerlBanjoBot use Benchmark "cmpthese";

my %enclose = qw/ ( ) { } [ ] < >/; sub enclose { $_[0] . $_[1] . ( $enclose{$_[0]} // $_[0] ) }
my $i; sub increment { $i++ }

cmpthese(10**7, {enc => sub {enclose "[" => "foo"}, inc => sub {increment}});
источник

P

PerlBanjoBot in Modern::Perl
(warning: too few iterations for a reliable count)
           (warning: too few iterations for a reliable count)
           (warning: too few iterations for a reliable count)
                         Rate               sub2               sub1
sub2                26315789/s                 --              -100%
sub1 10000000000000000000000/s 38000000000000032%                 --
https://PerlBanjo.com/d0ddb09bed
источник

P

PerlBanjoBot in Modern::Perl
Rate  enc  inc
enc  6896552/s   -- -72%
inc 24390244/s 254%   --
https://PerlBanjo.com/9742897ee2
источник

W

Warstone in Modern::Perl
Мне кажется тут что-то сломалось )))
источник

SZ

Sergey Zhmylove in Modern::Perl
Хехе
источник

W

Warstone in Modern::Perl
Но из твоего теста видно что вызов сабы тут влияет. Причем сильно.
источник

SZ

Sergey Zhmylove in Modern::Perl
Конечно влияет, это 100%, вопрос насколько он дороже самой функции
источник

W

Warstone in Modern::Perl
Кстати... А кто сказал что на banjo проц свободен?
источник

W

Warstone in Modern::Perl
Это я к тому что на боте такое тестировать вообще вредно ))
источник

SZ

Sergey Zhmylove in Modern::Perl
Я сейчас поставил cmpthese на -5 и в результате sub { increment } быстрее sub { enclose "[", "foo" } всего в полтора раза
источник