blib/lib/Algorithm/ClusterPoints.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 30 | 44 | 68.1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
141 | 0 | 0 | 253 | @all == $dimension and join('|', @all) eq join('|', 0 .. $dimension - 1) |
310 | 2490 | 90 | 245 | defined $cluster and not $cluster{$cluster} |
2580 | 161 | 84 | defined $cluster and not $cluster{$cluster} and _touch_2($cell{$cell}, $cell{$neighbor}, $ax, $ay) | |
469 | 2212005 | 5665 | 1601 | defined $cluster and not $cluster{$cluster} |
2217670 | 833 | 768 | defined $cluster and not $cluster{$cluster} and _touch($cell{$cell}, $cell{$neighbor}, $coords, $groups) |
line | l | !l | condition |
---|---|---|---|
330 | 8 | 4 | $cluster2cell{$to} ||= [$to] |
345 | 33 | 27 | $cluster2cell{$to} ||= [$to] |
488 | 24 | 11 | $cluster2cell{$to} ||= [$to] |
503 | 506 | 186 | $cluster2cell{$to} ||= [$to] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
76 | 0 | 0 | 0 | $ix > $top or $ix < 0 |
152 | 0 | 0 | 0 | $$self{'_clusters'} ||= $self->_make_clusters_ix |
169 | 0 | 255 | 0 | $$self{'_clusters'} ||= $self->_make_clusters_ix |
276 | 229 | 148 | 0 | $ifx{$_} ||= $c++ |
277 | 230 | 147 | 0 | $ify{$_} ||= $c++ |
374 | 188 | 53 | 0 | $delta_hypercylinder{_hypercylinder_id(@_)} ||= do { my @subdimension; foreach my $group (@_) { $subdimension[$_] = @$group foreach (@$group); }; my(@top) = map(ceil(sqrt $_), @subdimension); my(@delta_hypercylinder) = []; foreach my $dimension (0 .. $#subdimension) { my @next; foreach my $dhc (@delta_hypercylinder) { my $top = $top[$dimension]; push @next, map([@$dhc, $_], -$top .. $top); }; @delta_hypercylinder = @next; }; foreach my $group (@_) { @delta_hypercylinder = grep({my $sum = 0; foreach $_ (@$_[@$group]) { my $min = $_ ? abs($_) - 1 : 0; $sum += $min * $min; }; $sum < @$group;} @delta_hypercylinder); }; \@delta_hypercylinder } |
436 | 22258 | 11780 | 0 | $ifl{$_} ||= $c++ |