[ create a new paste ] login | about

Link: http://codepad.org/DfkIlat0    [ raw code | output | fork ]

Perl, pasted on Dec 19: 
1
2
3
4
5
6
7
8
9
10
11

$fetch = sub { 'hello world'; };
$print = sub { print $_[0]; };

$print->( $fetch->( ) );



$fetch = sub { 'hello world'; };
$print = sub { print UC $_[0]; };

$print->( $fetch->( ) );


Output: 
1

hello world


Create a new paste based on this one


Comments: