9 lines
170 B
Raku
9 lines
170 B
Raku
use MONKEY-TYPING;
|
|
augment class Bag {
|
|
method entropy {
|
|
[+] map -> \p { - p * log p },
|
|
self.values »/» +self;
|
|
}
|
|
}
|
|
|
|
say '1223334444'.comb.Bag.entropy / log 2;
|