14 lines
237 B
ObjectPascal
14 lines
237 B
ObjectPascal
|
function entropy(s: string): real;
|
||
|
|
begin
|
||
|
|
result := 0.0;
|
||
|
|
foreach var c in s.distinct do
|
||
|
|
begin
|
||
|
|
var freq := s.count(x -> x = c) / s.length;
|
||
|
|
result += -freq * log2(freq);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
entropy('1223334444').println;
|
||
|
|
end
|