projects
/
advent-of-code-16.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0640a81
)
More typo fixing
author
Neil Smith
<neil.git@njae.me.uk>
Tue, 6 Dec 2016 08:59:04 +0000
(08:59 +0000)
committer
Neil Smith
<neil.git@njae.me.uk>
Tue, 6 Dec 2016 08:59:04 +0000
(08:59 +0000)
advent06.hs
patch
|
blob
|
history
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
import Data.Char (isLetter)
import qualified Data.Map.Lazy as Map
-
-input = "cxdnnyjw"
-
main :: IO ()
main = do
text <- readFile "advent06.txt"
main :: IO ()
main = do
text <- readFile "advent06.txt"
@@
-14,7
+11,6
@@
main = do
part1 message
part2 message
part1 message
part2 message
-
part1 :: [String] -> IO ()
part1 message = do
print $ map (fst) $ map (mostCommon) $ map (countedLetters) $ transpose 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
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]
countedLetters :: String -> Map.Map Char Int
countedLetters name = Map.fromListWith (+) [(c, 1) | c <- filter (isLetter) name]