codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
use strict; use warnings; %::fnc = (a => sub{}, b => sub{}, c=> sub{}); my @in = ('a', 'b', 'c'); $::fnc{ shift @in }->(@in); print "@in";
Private
[
?
]
Run code
Submit