perl - PerlでQT（品質しきい値）クラスタリングを実装するにはどうすればよいですか？

Question

Perlで実装したいQTクラスタリングの実装に問題があります。

最後から3番目の「identifyset」で始まる行は、私には理解できない部分です。

論文全文はこちらから入手できます。

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