R/day04.R

In danhalligan/AoC2017: A solver for Advent of Code 2017

#' @export
read_input.day4 <- function(x, file = x$file) readLines(file)

#' @export
part1.day4 <- function(x, ...) {
  strsplit(input(x), " ") |>
    purrr::map_lgl(~ !any(duplicated(.x))) |>
    sum()
}

sort_words <- function(x) {
  strsplit(x, "") |>
    purrr::map(~ paste(sort(.x), collapse = ""))
}

#' @export
part2.day4 <- function(x, ...) {
  strsplit(input(x), " ") |>
    purrr::map_lgl(~ !any(duplicated(sort_words(.x)))) |>
    sum()
}