2018-06-22 20:57:24 +00:00
|
|
|
integer c;
|
|
|
|
|
real h, v;
|
|
|
|
|
index x;
|
|
|
|
|
data s;
|
2013-10-27 22:24:23 +00:00
|
|
|
|
2018-06-22 20:57:24 +00:00
|
|
|
for (, c in (s = argv(1))) {
|
|
|
|
|
x[c] += 1r;
|
2013-10-27 22:24:23 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
h = 0;
|
2018-06-22 20:57:24 +00:00
|
|
|
for (, v in x) {
|
|
|
|
|
v /= ~s;
|
|
|
|
|
h -= v * log2(v);
|
2013-10-27 22:24:23 +00:00
|
|
|
}
|
|
|
|
|
|
2018-06-22 20:57:24 +00:00
|
|
|
o_form("/d6/\n", h);
|
