From 5bc8c68da5691e57648112363a1df1eda7f0fe3a Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Tue, 6 Dec 2016 08:59:04 +0000 Subject: [PATCH] More typo fixing --- advent06.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/advent06.hs b/advent06.hs index d275f71..77d4093 100644 --- 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] -- 2.34.1