Comment puis-je implémenter le clustering QT (seuil de qualité) en Perl?

Question

J'ai des problèmes avec une implémentation de mise en cluster QT que je veux implémenter en Perl.

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

La ligne commençant par « identifier ensemble », le troisième de la fin, est la partie que je ne peux pas comprendre.

Le papier complet est disponible here.

Answer 1

A sub i est un cluster. {A sub 1, A sub 2, ..., A sub |G|} est un cluster de clusters.

Identify set C in {A sub 1, A sub 2, ..., A sub |G|} with maximum cardinality signifie la recherche du plus grand groupe A sub i.

En perl, si le groupe de clusters est:

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

puis

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

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