More typo fixing

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

diff --git a/advent06.hs b/advent06.hs
index 4d99fd2930df872e7febb52274966a72521a4b5a..77d40934c1d83388f9558c37d7948f5f7c766d13 100644 (file)
--- a/advent06.hs
+++ b/advent06.hs
@@ -1,13 +1,9 @@
 module Main(main) where
 
-import Data.List (last, intersperse, sortBy, intercalate, isInfixOf, transpose)
-import Data.List.Split (splitOn)
-import Data.Char (isLetter, ord, chr)
+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" 
@@ -15,7 +11,6 @@ main = do
     part1 message
     part2 message
 
-
 part1 :: [String] -> IO ()
 part1 message = do 
     print $ map (fst) $ map (mostCommon) $ map (countedLetters) $ transpose message
@@ -25,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]