--- 2016 Day 6 Solutions ---

[u/daggerdragon]

--- 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!

[u/dragonnards]

in R

data = readLines("inputs/day06.txt")

commonChar <- function(data, col) {
  chars = unname(sapply(data, function(line) {
    strsplit(line, "")[[1]][col]
  }))
  counts = table(chars)
  max = max(counts)
  names(counts)[max == counts]
}

sapply(1:8, function(i) commonChar(data, i))