library(adventofcode17)
p_strings <- readLines("./inst/input20.txt")
slowest <- find_slowest_particle(p_strings)
stopifnot(slowest == aoc17_solutions$day20a)
particles <- create_particles(p_strings)
particles <- search_and_destroy_particles(particles)
stopifnot(length(particles) == aoc17_solutions$day20b)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.