31:[{"id":"c3f92e97546e72ddc01e6718885e02ee12b931c7980adfe1fe9b432f06b1de98871565517cdf1329eb9a2cf2df8726c7e914fdf125a04fe24236c4dde18d8e59","href":"https://static.observableusercontent.com/files/c3f92e97546e72ddc01e6718885e02ee12b931c7980adfe1fe9b432f06b1de98871565517cdf1329eb9a2cf2df8726c7e914fdf125a04fe24236c4dde18d8e59","name":"christmas-ball-fill.svg","type":"image/svg+xml","lastModified":1701518197913.447,"size":1359},{"id":"ce93e6ad2383c205eabe84e25eb331278fc2094ef7f0294b400fa14cce96abd2d8083a78023cbf209e66668fb5abcc70823067a262eff3d4c7b7e509c92f7515","href":"https://static.observableusercontent.com/files/ce93e6ad2383c205eabe84e25eb331278fc2094ef7f0294b400fa14cce96abd2d8083a78023cbf209e66668fb5abcc70823067a262eff3d4c7b7e509c92f7515","name":"01-01.txt","type":"text/plain","lastModified":1701507314079.889,"size":21567},{"id":"056ca538ecb011819bfb1435a61c16f73544d44f22676b28871e61c05b4a590f31fc54e21c2c56ca6f9479c7a40c1bbd385d7808cce5a165c871c52380523c27","href":"https://static.observableusercontent.com/files/056ca538ecb011819bfb1435a61c16f73544d44f22676b28871e61c05b4a590f31fc54e21c2c56ca6f9479c7a40c1bbd385d7808cce5a165c871c52380523c27","name":"Whimsical Christmas Advent.png","type":"image/png","lastModified":1701516718465.228,"size":2099611}] 2f:{"title":"Day 1: Trebuchet?!","cells":[{"id":0,"value":"# Day 1: Trebuchet?!","pinned":false,"hidden":false,"mode":"md"},{"id":362,"value":"$${await FileAttachment(\"Whimsical Christmas Advent.png\").image()}","pinned":false,"hidden":false,"mode":"md"},{"id":483,"value":"await note(\n `Thanks to WebR we can solve this year's Advent of Code puzzles in both R and JavaScript in the same Observable Notebook!`\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":269,"value":"html`⏳ WebR is loading…`","pinned":false,"hidden":false,"mode":"ojs"},{"id":10,"value":"https://adventofcode.com/2023/day/1\n\n## Part 1\n\nThe newly-improved calibration document consists of lines of text; each line originally contained a specific calibration value that the Elves now need to recover. On each line, the calibration value can be found by combining the first digit and the last digit (in that order) to form a single two-digit number.\n\nFor example:","pinned":false,"hidden":false,"mode":"md"},{"id":24,"value":"```\n1abc2\npqr3stu8vwx\na1b2c3d4e5f\ntreb7uchet```","pinned":false,"hidden":false,"mode":"md"},{"id":26,"value":"In this example, the calibration values of these four lines are 12, 38, 15, and 77. Adding these together produces 142.\n\nConsider your entire calibration document. What is the sum of all of the calibration values?","pinned":false,"hidden":false,"mode":"md"},{"id":72,"value":"### Example Input Validation 1","pinned":false,"hidden":false,"mode":"md"},{"id":383,"value":"await note(\n `A basic solution to this part is to split each string into characters and only look at the first and last actual digit (which will work for instances like \\`trebu7chet\\`).`\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":32,"value":"jsInputValidation1 = d3.sum(\n sample1.innerText\n .split(\"\\n\")\n .filter((d) => d != \"\")\n .map((d) => {\n const digits = d.split(\"\").filter((d) => d.match(/\\d/));\n return +`${digits[0]}${digits.at(-1)}`;\n })\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":294,"value":"rInputValidation1 = await webR.evalRNumber(`\nr\"(${sample1.innerText})\" |>\n stri_split_lines1() |> \n sapply(\\\\(.s) {\n chars <- strsplit(.s, '')[[1]]\n chars <- chars[grepl(r\"(\\\\d)\", chars)]\n as.integer(sprintf(\"%s%s\", chars[1], chars[length(chars)]))\n }) |> \n sum()\n`)","pinned":false,"hidden":false,"mode":"ojs"},{"id":376,"value":"rInputValidation1 == jsInputValidation1","pinned":true,"hidden":false,"mode":"ojs"},{"id":77,"value":"### Puzzle Input Question 1","pinned":false,"hidden":false,"mode":"md"},{"id":80,"value":"jsPuzzleInput1 = d3.sum(\n puzzleInput\n .split(\"\\n\")\n .filter((d) => d != \"\")\n .map((d) => {\n const digits = d.split(\"\").filter((d) => d.match(/\\d/));\n return +`${digits[0]}${digits.at(-1)}`;\n })\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":318,"value":"rPuzzleInput1 = await webR.evalRNumber(`\nr\"(${puzzleInput})\" |>\n stri_split_lines1() |> \n sapply(\\\\(.s) {\n chars <- strsplit(.s, '')[[1]]\n chars <- chars[grepl(r\"(\\\\d)\", chars)]\n as.integer(sprintf(\"%s%s\", chars[1], chars[length(chars)]))\n }) |> \n sum()\n`)","pinned":false,"hidden":false,"mode":"ojs"},{"id":379,"value":"jsPuzzleInput1 == rPuzzleInput1","pinned":true,"hidden":false,"mode":"ojs"},{"id":86,"value":"## Part 2 \n\nYour calculation isn't quite right. It looks like some of the digits are actually spelled out with letters: one, two, three, four, five, six, seven, eight, and nine also count as valid \"digits\".\n\nEquipped with this new information, you now need to find the real first and last digit on each line. For example:","pinned":false,"hidden":false,"mode":"md"},{"id":90,"value":"```\ntwo1nine\neightwothree\nabcone2threexyz\nxtwone3four\n4nineeightseven2\nzoneight234\n7pqrstsixteen\n```","pinned":false,"hidden":false,"mode":"md"},{"id":92,"value":"In this example, the calibration values are 29, 83, 13, 24, 42, 14, and 76. Adding these together produces 281.\n\nWhat is the sum of all of the calibration values?","pinned":false,"hidden":false,"mode":"md"},{"id":397,"value":"await note(`As usual, the instructions are not completely helpful, and an initial naive solution failed to take into account that they mean for you to take each spelled out digit as you work from first to last character in each string. It's still a pretty simple solution.`)","pinned":false,"hidden":false,"mode":"ojs"},{"id":248,"value":"#### JS Helpers","pinned":false,"hidden":false,"mode":"md"},{"id":125,"value":"numberMap = ({\n one: \"1\",\n two: \"2\",\n three: \"3\",\n four: \"4\",\n five: \"5\",\n six: \"6\",\n seven: \"7\",\n eight: \"8\",\n nine: \"9\"\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":181,"value":"function parseDigits(str) {\n let d = [];\n while (str.length > 0) {\n d.push(str.match(/^(\\d|one|two|three|four|five|six|seven|eight|nine)/));\n str = str.slice(1);\n }\n return d.filter((d) => d).map((d) => numberMap[d[0]] || d[0]);\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":424,"value":"#### WebR Helpers","pinned":false,"hidden":false,"mode":"md"},{"id":345,"value":"await note(\n \"WebR helper functions can be found in the WebR initialization code block.\"\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":144,"value":"### Example Input Validation 2","pinned":false,"hidden":false,"mode":"md"},{"id":213,"value":"jsInputValidation2 = d3.sum(\n sample2.innerText\n .split(\"\\n\")\n .filter((d) => d != \"\")\n .map((d) => {\n const digits = parseDigits(d);\n return +`${digits[0][0]}${digits.at(-1)[0]}`;\n })\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":333,"value":"rInputValidation2 = await webR.evalRNumber(`\nr\"(${sample2.innerText})\" |>\n stri_split_lines1() |> \n sapply(\\\\(.s) {\n digits <- parse_digits(.s)\n as.integer(sprintf(\"%s%s\", digits[1], digits[length(digits)]))\n }) |> \n sum()\n`)","pinned":false,"hidden":false,"mode":"ojs"},{"id":374,"value":"rInputValidation2 == jsInputValidation2","pinned":true,"hidden":false,"mode":"ojs"},{"id":151,"value":"### Puzzle Input Question 2","pinned":false,"hidden":false,"mode":"md"},{"id":215,"value":"jsPuzzleInput2 = d3.sum(\n puzzleInput\n .split(\"\\n\")\n .filter((d) => d != \"\")\n .map((d) => {\n const digits = parseDigits(d);\n return +`${digits[0][0]}${digits.at(-1)[0]}`;\n })\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":336,"value":"rPuzzleInput2 = await webR.evalRNumber(`\nr\"(${puzzleInput})\" |>\n stri_split_lines1() |> \n sapply(\\\\(.s) {\n digits <- parse_digits(.s)\n as.integer(sprintf(\"%s%s\", digits[1], digits[length(digits)]))\n }) |> \n sum()\n`)","pinned":false,"hidden":false,"mode":"ojs"},{"id":370,"value":"jsPuzzleInput2 == rPuzzleInput2","pinned":true,"hidden":false,"mode":"ojs"},{"id":256,"value":"## Puzzle Input","pinned":false,"hidden":false,"mode":"md"},{"id":82,"value":"puzzleInput = FileAttachment(\"01-01.txt\").text()","pinned":false,"hidden":false,"mode":"ojs"},{"id":267,"value":"webR = {\n const { WebR, ChannelType } = await import(\n \"https://cdn.jsdelivr.net/npm/webr/dist/webr.mjs\"\n );\n\n const intWebR = new WebR({\n channelType: ChannelType.PostMessage,\n interactive: false\n });\n\n await intWebR.init();\n\n await intWebR.installPackages([\"stringi\"], true);\n await intWebR.evalRVoid(`library(stringi)`);\n\n await intWebR.evalRVoid(`\nsetNames(\n c(1:9, 1:9),\n c(\n \"one\", \"two\", \"three\", \"four\", \"five\", \n \"six\", \"seven\", \"eight\", \"nine\", 1:9)\n) -> number_map\n\nnumber_regex <- sprintf(\"^(%s)\", paste0(names(number_map), collapse=\"|\"))\n\nparse_digits <- function (str) {\n out <- c()\n while (nchar(str) > 0) {\n match <- stri_match_first_regex(str, number_regex)[1]\n out <- c(out, match)\n str <- substring(str, 2);\n }\n unname(number_map[as.character(na.omit(out))])\n}`);\n\n document.querySelector(\"#loader\").innerText = \"🟢\";\n document.querySelector(\"#msg\").innerText = \"WebR loaded!\";\n\n return intWebR;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":5,"value":"import { style } from \"@hrbrmstr/hrbrthemes\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":429,"value":"async function note(msg) {\n return html`\n

\n ${await FileAttachment(\"christmas-ball-fill.svg\").image()}\n

\n ${msg}\n

`;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":427,"value":"Christmas ball/ornament icon from:
https://icon-sets.iconify.design/mingcute/christmas-ball-fill/","pinned":false,"hidden":false,"mode":"md"},{"id":8,"value":"style","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W31","stdlib":"1","titling":"auto"}