用简单的calc内存不足？

Question

我得到out of memory一个非常简单的计算。

我尝试计算由于二叉树可能给了许多n样本的许多拓扑

因此，我简单尝试一下“ perl -E 'sub fac{ my ($n) = @_; $n == 1 ? 1 : $n * fac($n -1)} sub top{ my ($n) = @_; $t = fac(2 * $n - 5) / (2 ** ($n - 3) * fac($n - 3) ) } say top(3)' Also”，同样数学的另一个版本：

#!/usr/bin/env perl

use warnings;
use strict;
#use features;

sub factorial{
        my ($n) = @_;
        $n == 1 ? 1 : $n * factorial($n -1)
}

sub topologies{
        my ($n) = @_;
        my $a = (2 * $n) - 5;
        my $a_f = factorial($a);
        my $b = $n -3;
        my $b_f = factorial($b);
        my $c = 2 ** $b;
        my $q = $c * $b_f;
        my $t = $a_f / $q;
        return $t;
}

print "Enter number of taxas: ";
my $input = <STDIN>;
my $ntop = topologies();

print $ntop, "\n";

当我尝试甚至是样本量时3。我进入out of memory了一台具有4GB内存和4GB缓存的计算机。与128GB或ram服务器相同。

我不需要这个计算器，我只是在找乐子。但我不知道为什么收到此out of memory消息。

编辑：当样本等于或小于3时，我就得到它

Answer 1

用$n = 3您的toplogies(3)遗嘱致电factorial(1)和factorial(0)。后者的实现不正确，并试图通过调用来创建阶​​乘factorial(-1)，然后调用factorial(-2)，然后调用factorial(-3)...，即无限递归，其中每个步骤分配更多的内存。因此，这种无休止的递归将导致内存不足。类似的事情也会发生$n<3。