Sync

Task/Entropy/Aime/entropy.aime

@@ -0,0 +1,25 @@
+integer i, l;
+record r;
+real h, x;
+text s;
+
+s = argv(1);
+l = length(s);
+
+i = l;
+while (i) {
+    i -= 1;
+    rn_a_integer(r, cut(s, i, 1), 1);
+}
+
+h = 0;
+if (r_first(r, s)) {
+    do {
+        x = r_q_integer(r, s);
+        x /= l;
+        h -= x * log2(x);
+    } while (r_greater(r, s, s));
+}
+
+o_real(6, h);
+o_newline();