library(adventofcode2021)
digits <- do.call(rbind, strsplit(readLines(input_file(8)), '[^a-z]+'))
count_unique(digits)
sum(apply(digits, 1, output_value))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.