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