note Anonymous Monk Perl can do something that closely resembles an optimized tail call, but it only does so if you tell it to. <code> sub tail_fact { my ($num, $k) = @_; return $k->(1) unless ($num); @_ = ($num - 1, sub { return $num * $k->(shift); }); goto &tail_fact; } </code> 248935 249118 1