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

Question

我想在 Perl 中实现的 QT 集群实现有问题。

以“识别集”开头的行，倒数第三行，是我无法弄清楚的部分。

全文可在此处获得。

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 };