4 lines
53 B
Perl
4 lines
53 B
Perl
|
sub Y { my $f = shift;
|
||
|
|
sub {$f->(Y($f))->(@_)}
|
||
|
|
}
|