получите подобие косинуса между двумя документами в lucene

Насколько я знаю, Perl не оптимизирует рекурсивные вызовы хвоста, но можно фальсифицировать его.

sub f{
  my($l,$r) = @_;

  if( $l >= $r ){
    return $l;
  } else {

    # return f( $l+1, $r );

    @_ = ( $l+1, $r );
    goto &f;

  }
}

, Когда сначала названный им выделит место на стеке. Тогда это изменит свои аргументы и перезапустит подпрограмму, не добавляя ничего больше к стеку. Это поэтому притворится, что никогда не называло сам, изменяя его в итеративный процесс.

Примечание, что нет никакой" my @_;" или" local @_;", если Вы, это больше не будет работать.