in reply to Similarity matrix
Maybe something like this? Assumes symmetry (d(x, y) = d(y, x)).
my @sim; my @words = ...; for my $i (0 .. $#words) { for my $j ( ($i+1) .. $#words) { $sim[$i][$j] = similarity( $words[$i], $words[$j]) $sim[$j][$i] = $sim[$i][$j]; } } sub similarity { my ( $w1, $w2 ) = @_; my $sim = 1; # calc simularity return sim; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Similarity matrix
by smilly (Novice) on Feb 01, 2008 at 23:07 UTC | |
Re^2: Similarity matrix
by Anonymous Monk on Feb 04, 2008 at 14:40 UTC | |
by Anonymous Monk on Feb 04, 2008 at 15:18 UTC |
In Section
Seekers of Perl Wisdom