library(adventofcode18)
x <- readLines("./inst/input05.txt")
p1 <- run_polymer_reaction(x)
# that's a slow one!
p2 <- simulate_polymer_reactions(x)
stopifnot(nchar(p1) == aoc18_solutions$day05a)
stopifnot(min(unlist(p2)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.