Существует рекурсивная реализация вычисления факториала N на Perl.
sub fact {
my ($n) = shift;
return $n if $n <= 2;
return $n * fact($n - 1);
}
Может ли кто-нибудь объяснить мне, где Perl хранит промежуточные результаты до того, как функция даст результат?
UPD и как я могу их увидеть с помощью отладчика или с помощью чего-то еще?
Из ответов мне объяснили, что эти значения хранятся в стеке, но как я могу увидеть эти значения из стека?
Скаляр, возвращаемый $n, сохраняется в стеке.
Вот как выглядит стек непосредственно перед вызовом fact:
$n на уровне рекурсии 0$n in recursion level 1$n in recursion level 2$n-1 in recursion level 2\&fact на уровне рекурсии 2Вот как выглядит стек сразу после вызова fact:
$n на уровне рекурсии 0$n in recursion level 1$n in recursion level 2fact($n - 1) на уровне рекурсии 2В этот момент оператор умножения умножит два последних значения в стеке и поместит результат в стек.
$n на уровне рекурсии 0$n in recursion level 1$n * fact($n - 1) in recursion level 2Затем саб возвращается,
$n на уровне рекурсии 0$n in recursion level 1fact($n - 1) на уровне рекурсии 1И так далее.
При рекурсии любой из аргументов, которые передаются в каждом вызове, попадают в кадр/стек вызова. Используя Carp & Cluck, вы можете видеть кадры вызова. Промежуточные результаты рассчитываются, пока стек раскручивается по достижении базового случая ($v == 1). Может ли это быть только в регистре процессора? И оператор (*) умножает этот промежуточный результат на $v, который находится в стеке. Также ознакомьтесь с этой статьей.
#!/usr/bin/env perl
use strict;
use IO::Handle;
use Carp qw(cluck);
STDOUT->autoflush(1);
STDERR->autoflush(1);
sub factorial {
my $v = shift;
dummy_func();
return 1 if $v == 1;
print "Variable v value: $v and it's address:", \$v, "\ncurrent sub factorial addr:", \&factorial, "\n","-"x40;
return $v * factorial($v - 1);
}
sub dummy_func {
cluck;
}
factorial(5);
Также поможет запуск в режиме отладки.
perl -d factorial.pl
Поскольку $n объявлен как my $n, это переменная с лексической областью видимости, которая хранится в стеке, а не в системной таблице. Дополнительную информацию см. в разделе Переменные Perl через my(). Информация.
$pad[$recursion_depth][$var_idx]. 2. Это не отвечает на вопрос ОП, поскольку он не хочет знать, где хранится $n, но где хранится значение, возвращаемое $n.
- person ikegami; 01.01.2013
Промежуточные результаты любого вызова хранятся в стеке, как и локальные переменные внутри функции.
return $n * fact($n - 1);
обрабатывается эквивалентно:
my $temp = fact($n - 1);
return $n * $temp;
ОБНОВЛЕНИЕ: я вижу, вас также интересует, где хранится товар перед его возвратом. Это также временно в стеке, поэтому это эквивалентно:
my $temp1 = fact($n - 1);
my $temp2 = $n * $temp1;
return $temp2;
print $temp, но в моем примере я не могу этого сделать
- person edem; 01.01.2013
$temp к вашему примеру?
- person Barmar; 01.01.2013
$n и fact($n - 1). Я обновлю свой ответ.
- person Barmar; 01.01.2013
fact, или$n, или...? В стеке. - person Ry-♦ schedule 01.01.2013$n, просто используя эту переменную. Вызов функции просто возвращает возвращаемое значение. Perl творит чудеса за вас. Если вы пытаетесь решить конкретную проблему, может помочь сообщение что вы пытаетесь сделать, а не как. (Если это академическая проблема, я все еще не совсем понимаю) - person amon schedule 01.01.2013my $f = fact($n - 1);- person ikegami schedule 02.01.2013printполучает их оттуда. Упрощенно:print($a, $b, $c*$d)равноpush @stack, $a; push @stack, $b; push @stack, $c; push @stack, $d; multiply; print;- person ikegami schedule 04.01.2013