More typo fixing

diff --git a/advent06.hs b/advent06.hs
index d275f713720bf1355f7246ad319709dd5d152b59..77d40934c1d83388f9558c37d7948f5f7c766d13 100644 (file)
--- a/advent06.hs
+++ b/advent06.hs
@@ -4,9 +4,6 @@ import Data.List (transpose)
 import Data.Char (isLetter)
 import qualified Data.Map.Lazy as Map
 
-
-input = "cxdnnyjw"
-
 main :: IO ()
 main = do 
     text <- readFile "advent06.txt" 
@@ -14,7 +11,6 @@ main = do
     part1 message
     part2 message
 
-
 part1 :: [String] -> IO ()
 part1 message = do 
     print $ map (fst) $ map (mostCommon) $ map (countedLetters) $ transpose message
@@ -24,7 +20,6 @@ part2 message = do
     print $ map (fst) $ map (leastCommon) $ map (countedLetters) $ transpose message
 
 
-
 countedLetters :: String -> Map.Map Char Int
 countedLetters name = Map.fromListWith (+) [(c, 1) | c <- filter (isLetter) name]