Perl에서 QT (quality threshold) 클러스터링을 구현하려면 어떻게해야합니까?

Question

Perl에서 구현하고자하는 QT 클러스터링 구현에 문제가 있습니다. , 끝에서, 세 번째 "설정 확인"로 시작

Algorithm http://i47.tinypic.com/2e36as3.png

라인은 내가 알아낼 수없는 부분이다.

전체 종이는 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을 찾는 것을 의미합니다. 펄에서

는 클러스터의 클러스터 인 경우 :

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