CDE

Task/Entropy/D/entropy.d

@@ -0,0 +1,15 @@
+import std.stdio, std.algorithm, std.math;
+
+double entropy(T)(T[] s)
+/*pure nothrow*/ if (__traits(compiles, sort(s))) {
+    return s
+           .sort()
+           .group
+           .map!(g => g[1] / cast(double)s.length)
+           .map!(p => -p * log2(p))
+           .reduce!q{a + b};
+}
+
+void main() {
+    "1223334444"d.dup.entropy.writeln;
+}

Task/Entropy/Euler-Math-Toolbox/entropy.euler

@@ -0,0 +1,8 @@
+>function entropy (s) ...
+$  v=strtochar(s);
+$  m=getmultiplicities(unique(v),v);
+$  m=m/sum(m);
+$  return sum(-m*logbase(m,2))
+$endfunction
+>entropy("1223334444")
+ 1.84643934467