cryptopals

commit e6461700dac973f8976bef1200c626cd38181ac6
parent 50f6d61f6f95d6447e36031b60c75dbc718bb2b8
Author: Jared Tobin <jared@jtobin.ca>
Date:   Fri, 26 May 2017 21:52:40 +1200

Minor tweak.

Diffstat:
M
lib/hamming/Hamming.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/hamming/Hamming.hs b/lib/hamming/Hamming.hs
@@ -15,8 +15,8 @@ distance s0 s1
     | B.length s0 /= B.length s1 = Nothing
     | otherwise = Just (foldr alg 0 (B.zip s0 s1))
   where
-    hamming a b = popCount (xor a b)
-    alg = (+) . uncurry hamming
+    hamming (a, b) = popCount (xor a b)
+    alg            = (+) . hamming
 
 main :: IO ()
 main = do