Just another update

Task/Entropy/Clojure/entropy-1.clj

@@ -1,9 +1,7 @@
 (defn entropy [s]
-  (let [len (count s)
-        freqs (frequencies s)
-        log-of-2 (Math/log 2)]
-    (->> (keys freqs)
-         (map (fn [c]
-                (let [rf (/ (get freqs c) len)]
-                  (* -1 rf (/ (Math/log rf) log-of-2)))))
+  (let [len (count s), log-2 (Math/log 2)]
+    (->> (frequencies s)
+         (map (fn [[_ v]]
+                (let [rf (/ v len)]
+                  (-> (Math/log rf) (/ log-2) (* rf) Math/abs))))
          (reduce +))))

Task/Entropy/Clojure/entropy-2.clj

@@ -1,2 +1,2 @@
-(H "1223334444")
+(entropy "1223334444")
 1.8464393446710154