2004-02-18 Y-combinator みたいなもの Perl # fact(5) print &{$_ = sub{ ($_[0] <= 0) ? 1 : $_[0] * $_->($_[0]-1) }}(5);