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

Question

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

以“识别集”开头的行，从结尾开始的第三行，是我无法弄清楚的部分。

完整论文可用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 };