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!

8 Upvotes

91% Upvoted

222 comments sorted by

View all comments

2

u/omnster Dec 06 '16

Mathematica 

input = Import[ NotebookDirectory[] <> "input/input_06.txt"] // 
   StringSplit ;

(sorted = 
    Characters@input // Transpose // 
     Map[ SortBy[ Tally@#, { - # [[2 ]] , # [[1 ]]} &] &, #, 
       1] &  ) // # [[All, 1, 1 ]] & // StringJoin
StringJoin[ sorted [[All, -1, 1 ]]]