Data update

Task/Entropy/EasyLang/entropy.easy

@@ -6,7 +6,7 @@ func entropy s$ .
    for cnt in d[]
       if cnt > 0
          prop = cnt / len s$
-         entr -= (prop * logn prop / logn 2)
+         entr -= (prop * log10 prop / log10 2)
       .
    .
    return entr

Task/Entropy/SETL/entropy.setl

@@ -0,0 +1,16 @@
+program shannon_entropy;
+    print(entropy "1223334444");
+
+    op entropy(symbols);
+        hist := {};
+        loop for symbol in symbols do
+            hist(symbol) +:= 1;
+        end loop;
+        h := 0.0;
+        loop for count = hist(symbol) do
+            f := count / #symbols;
+            h -:= f * log f / log 2;
+        end loop;
+        return h;
+    end op;
+end program;