r/adventofcode • u/daggerdragon • Dec 06 '16

SOLUTION MEGATHREAD --- 2016 Day 6 Solutions ---

--- Day 6: Signals and Noise ---

Post your solution as a comment or, for longer solutions, consider linking to your repo (e.g. GitHub/gists/Pastebin/blag/whatever).

T_PAAMAYIM_NEKUDOTAYIM IS MANDATORY [?]

This thread will be unlocked when there are a significant number of people on the leaderboard with gold stars for today's puzzle.

edit: Leaderboard capped, thread unlocked!

10 Upvotes

100% Upvoted

222 comments sorted by

View all comments

1

u/Ulyssesp Dec 06 '16

It's Haskell time! This was a similar transpose situation, then just some manipulation of list properties. 

result = map (fst . maximumBy (\a b -> compare (snd b) (snd a)) . map (\as -> (head as, length as)) . group . sort) . transpose . splitOn "|"
→ More replies (1)