Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Closure
sub make_counter { my $start = shift; return sub { $start++ } } my $from_ten = make_counter(10); my $from_three = make_counter(3); print $from_ten->(); print "\n"; # 10 print $from_ten->(); print "\n"; # 11 print $from_three->(); print "\n"; # 3 print $from_ten->(); print "\n"; # 12 print $from_three->(); print "\n"; # 4
run
|
edit
|
history
|
help
0
hashes
Array_with_join_function
Prac 2 #2
Perl - Sort hash of filenames by file extension
Attractive Numbers
neigh.pl
OSTL prateeshrk
FOP utilities
Hello
reverse polish notation experiment