blib/lib/Shannon/Entropy.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 3 | 3 | 100.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
19 | 1 | 1 | 3 | map({$p = $_ / $len; $entropy -= $p * log($p);} map({$t{$_}++;} split(//, $_[0], 0)) ? values %t : ()) && $entropy / 0.69314718055994529 |