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)' 另外，相同数学的另一个版本：

#!/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时。我在装有4GB内存和4GB缓存的计算机中找到了out of memory。与128GB或ram服务器相同。

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

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

Answer 1

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

用简单的calc内存不足？

1 个答案: