AK
Size: a a a
AK
W
AK
VG
W
赤田
SL
AK
AK
VO
VO
SZ
SZ
use Benchmark "cmpthese";
my %enclose = qw/ ( ) { } [ ] < >/; sub enclose { $_[0] . $_[1] . ( $enclose{$_[0]} // $_[0] ) }
my $i;
cmpthese(10**7, {enc => sub {enclose "[" => "foo"}, inc => sub {$i++}});
P
IB
IB
SZ
SZ
W
IB