Day 6: Tuning Trouble

Reference

library(tidyverse)

input <- read_lines(file = "inputs/2022/06.txt")

Part One

for (i in 4:str_length(input)) {
    n_unique <- str_sub(input, i-3, i) |> 
        str_split_1("") |> 
        unique() |> 
        length()
    
    if (n_unique == 4) {
        cat(i)
        break
    }
}
## 1855

Part Two

for (i in 14:str_length(input)) {
    n_unique <- str_sub(input, i-13, i) |> 
        str_split_1("") |> 
        unique() |> 
        length()
    
    if (n_unique == 14) {
        cat(i)
        break
    }
}
## 3256