perl - 如何在 Perl 中实现 QT(质量阈值)聚类？

Question

我想在 Perl 中实现 QT 集群实现时遇到问题。

以“identify set”开头的行，倒数第三行，是我想不通的部分。

全文可用here .

Answer 1

A sub i 是一个簇。 {A sub 1, A sub 2, ..., A sub |G|} 是一个簇的簇。

Identify set C in {A sub 1, A sub 2, ..., A sub |G|} with maximum cardinality 表示找到最大的簇A sub i.

在perl中，如果簇的簇是:

my @bigun = (
                [1, 2, 3],
                [4, 5, 6, 7],
                [8]
            );

然后

# @C = @{ $bigun[1] };

use List::Util qw/reduce/;
my @C = @{ reduce { @$a > @$b ? $a : $b } @bigun };