DEV Community

Colin Fay
Colin Fay

Posted on • Originally published at colinfay.me on

Advent of Code 2020-01 with R & JavaScript

#adventofcode #rstats #javascript

Solving Advent of Code 2020-01 with R and JavaScript.

[Disclaimer] Obviously, this post contains a big spoiler about Advent of Code, as it gives solutions for solving day 1.

[Disclaimer bis] I’m no JavaScript expert so this might not be the perfect solution. TBH, that’s also the case for the R solution.

About the JavaScript code

The JavaScript code has been written in the same RMarkdown as the R code. It runs thanks to the {bubble} package:https://github.com/ColinFay/bubble

Instructions

  • Combine all the possible duos and trios of the input numbers

  • Locate the combination that equals 2020

  • Multiply the numbers from this combination to get the puzzle answer

Find the complete instructions at:https://adventofcode.com/2020/day/1.

R solution

Part one 

# Read ipt <- read.delim( "2020-01-aoc.txt", header = FALSE ) library(dplyr, warn.conflicts = FALSE) # Creating all the combinations tidystringdist::tidy_comb_all(ipt$V1) %>% # Adding them together mutate(sum = V1 + V2) %>% # keeping only the one that equals 2020 filter(sum == 2020) %>% # Multiplying it mutate(res = V1 * V2) %>% # Getting the answer pull(res) ## [1] 445536
Enter fullscreen mode Exit fullscreen mode

Part two 

# Creating all the combinations combn( ipt$V1, 3 ) %>% # Transposing the matrix and turning it to a tibble t() %>% as_tibble() %>% # Same old song as step 1 mutate(sum = V1 + V2 + V3) %>% filter(sum == 2020) %>% mutate(res = V1 * V2 * V3) %>% pull(res) ## [1] 138688160
Enter fullscreen mode Exit fullscreen mode

JS solution

Part one & Two

// Reading the file and converting it to int

const fs = require('fs') var ipt = fs.readFileSync("2020-01-aoc.txt", 'utf8').split("\n").filter(x => x.length != 0); ipt = ipt.map(x => parseInt(x));
Enter fullscreen mode Exit fullscreen mode

// Doing the combn

var ipt2 = ipt; var comb = ipt.flatMap(i => ipt2.map(j => [i, j]))
Enter fullscreen mode Exit fullscreen mode

// Getting the 2020

var twentytwenty = comb.filter(x => (x[0] + x[1]) === 2020)
Enter fullscreen mode Exit fullscreen mode

// Solution

twentytwenty.reduce(y => y[0] * y[1]) ## 445536
Enter fullscreen mode Exit fullscreen mode

// Same with three

var ipt3 = ipt; var comb2 = ipt.flatMap(i => ipt2.flatMap(j => ipt3.map(k => [i, j, k])));
Enter fullscreen mode Exit fullscreen mode

// Doing the computation

var twentytwenty2 = comb2.filter(x => (x[0] + x[1] + x[2]) === 2020)
Enter fullscreen mode Exit fullscreen mode

// Solution

twentytwenty2.map(y => y[0] * y[1] * y[2])[0] ## 138688160
Enter fullscreen mode Exit fullscreen mode

Top comments (0)