dispatch_table.pl
Perl•エキスパート
Explorer
C40
C++40
C#40
Dart40
Go40
Java40
JavaScript40
Kotlin40
Objective-C40
Perl
初級10
中級10
上級10
エキスパート5
closure_factory.pl
tie_scalar.pl
autoload.pl
moose_class.pl
dispatch_table.pl
マスター5
PHP40
Python40
R40
Ruby40
Rust40
Shell40
Swift40
TypeScript40
dispatch_table.pl
Click to focus
1
2
3
4
5
6
my %dispatch = (↵
add => sub { $_[0] + $_[1] },↵
mul => sub { $_[0] * $_[1] },↵
div => sub { $_[1] ? $_[0] / $_[1] : die "Division by zero" }↵
);↵
sub calc { $dispatch{$_[0]}->(@_[1,2]) }
0WPM•0%•0:00•0/191(0%)|Ln 1, Col 1
UTF-8•Perl