Mimic MessageDigest.isEqual implementation for hashes-equal?

skinkade · Nov 15, 2021 · d7c2a95 · d7c2a95
1 parent 5473a13
commit d7c2a95
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/src/uniformity/hash.cljc b/src/uniformity/hash.cljc
@@ -78,9 +78,10 @@
   [hash1 hash2]
   (if (not= (count hash1) (count hash2))
     false
-    (reduce (fn [equals idx]
-              (and (= (get hash1 idx)
-                      (get hash2 idx))
-                   equals))
-            true
-            (range (count hash1)))))
+    (= 0
+       (reduce (fn [equals idx]
+                 (bit-or equals
+                         (bit-xor (int (get hash1 idx))
+                                  (int (get hash2 idx)))))
+               0
+               (range (count hash1))))))