Ещё бы, для полного счастья, бенчмарки организовать бы. Прямо сейчас

Question

Modern::Perl

mr bbon

Ещё бы, для полного счастья, бенчмарки организовать бы. Прямо сейчас

- такая лень, может быть как-нибудь потом.. в какой-нибудь унылый понедельник?

#perl #programming #russian

0

04.08.2024

1 ответов

13 просмотров

Ярослав🧞 Косьмина · Accepted Answer

#!/usr/bin/perl use strict; use warnings; use feature 'say'; use Benchmark qw(:all); cmpthese(100_000, +{ "?:" => sub { my $x = int rand 5; say !$x ? 'zero' : $x == 1 ? 'one' : $x == 2 ? 'two' : $x == 3 ? 'three' : 'too many' ; }, "&& ||" => sub { my $x = int rand 5; say !$x && 'zero' || $x == 1 && 'one' || $x == 2 && 'two' || $x == 3 && 'three' || 'too many' ; }, "and or" => sub { my $x = int rand 5; say(!$x and 'zero' or $x == 1 and 'one' or $x == 2 and 'two' or $x == 3 and 'three' or 'too many' ); }, "elsif" => sub { my $x = int rand 5; say do { if ( !$x ) { 'zero' } elsif($x == 1) { 'one' } elsif($x == 2) { 'two' } elsif($x == 3) { 'three' } else { 'too many' } }; }, "sub return if ..." => sub { my $x = int rand 5; say((sub { return 'zero' if !$x; return 'one' if 1 == $x; return 'two' if 2 == $x; return 'three' if 3 == $x; return 'too many'; })->()); }, "given" => sub { my $x = int rand 5; use feature qw/switch/; no warnings qw/deprecated::smartmatch/; say do { given($x) { 'zero' when !$_; 'one' when 1; 'two' when 2; 'three' when 3; default { 'too many' } } }; }, "switch" => sub { my $x = int rand 5; use Switch '__'; say((sub { switch($x) { case !__ { return 'zero' } case 1 { return 'one' } case 2 { return 'two' } case 3 { return 'three' } else { return 'too many' } } })->()); }, "{}" => sub { my $x = int rand 5; # Тут выражения вычисляются все, а не последовательно, # поэтому раскрывают частный случай say +{ 0 => 'zero', 1 => 'one', 2 => 'two', 3 => 'three', }->{$x} // 'too many'; }, }); Rate switch sub return if ... {} given elsif ?: and or && || switch 93458/s -- -76% -78% -80% -81% -82% -83% -83% sub return if ... 384615/s 312% -- -8% -19% -23% -27% -31% -31% {} 416667/s 346% 8% -- -12% -17% -21% -25% -25% given 476190/s 410% 24% 14% -- -5% -10% -14% -14% elsif 500000/s 435% 30% 20% 5% -- -5% -10% -10% ?: 526316/s 463% 37% 26% 11% 5% -- -5% -5% and or 555556/s 494% 44% 33% 17% 11% 6% -- -0% && || 555556/s 494% 44% 33% 17% 11% 6% 0% -- ```

169 похожих чатов

Ещё бы, для полного счастья, бенчмарки организовать бы. Прямо сейчас

1 ответов

Похожие вопросы