Tidying

[advent-of-code-16.git] / advent16.hs

diff --git a/advent16.hs b/advent16.hs
index 80474b5ad8b6a392eb9fbd0ff0404251acaf243a..0c7bfbbf40c41588d11f7f35ff0a33005efcad22 100644 (file)
--- a/advent16.hs
+++ b/advent16.hs
@@ -32,10 +32,7 @@ checksum :: String -> String
 checksum digits
     | odd $ length digits = digits
     | otherwise = checksum $ map (checksumPair) $ pairs digits
-
-
-checksumPair :: String -> Char
-checksumPair p = if (length $ nub p) == 1 then '1' else '0'
+        where checksumPair p = if (length $ nub p) == 1 then '1' else '0'
 
 
 pairs :: [a] -> [[a]]