| 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++ |