[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**Colin Fay**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Solving Advent of Code 2019-08 with R and JavaScript.

[Disclaimer] Obviously, this post contains a big spoiler about Advent

of Code, as it gives solutions for solving day 8.

## 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

Find the instructions at: https://adventofcode.com/2019/day/8

## R solution

### Part one

```
library(magrittr)
library(purrr)
ipt <- read.delim("input8.txt", header = FALSE, colClasses = "character")$V1
ipt <- strsplit(ipt, "")[[1]] %>% as.numeric()
layers_size <- 6 * 25
l <- list()
for (i in 1: (length(ipt)/layers_size)){
l[[i]] <- ipt[1:150]
ipt <- ipt[151:length(ipt)]
}
mn <- l %>%
lapply(table) %>%
map_dbl("0") %>%
which.min()
l[[mn]] %>%
table()
```

```
## .
## 0 1 2
## 7 14 129
```

```
14 * 129
```

```
## [1] 1806
```

### Part two

```
v <- c()
for (i in seq_len(layers_size)){
idx <- map_dbl(l, i)
v[i] <- idx[idx %in% c(0,1)][1]
}
library(dplyr)
library(tidyr)
library(ggplot2)
library(tibble)
matrix(v, ncol = 6) %>%
as.data.frame() %>%
rowid_to_column() %>%
gather(key = key, value = value, V1:V6) %>%
mutate(key = gsub("V(.)", "\\1", key) %>% as.numeric()) %>%
ggplot(aes(rowid, key, fill = as.factor(value))) +
geom_tile() +
coord_fixed() +
scale_fill_viridis_d() +
scale_y_reverse()
```

## JS solution

```
var ipt = fs.readFileSync("input8.txt", 'utf8').split("").filter(x => x.length != 0 & x != '\n').map(x => parseInt(x));
var layers_size = 6 * 25;
var layer_n = ipt.length / layers_size;
var res = [];
function table(vec){
var tbl = {};
vec.map(function(x){
if (tbl[x]){
tbl[x] = tbl[x] + 1;
} else {
tbl[x] = 1;
}
})
return tbl;
}
for (var i = 0; i < layer_n; i ++){
res[i] = ipt.splice(0, layers_size);
}
var res_b = res.map(x => table(x));
var minim = Math.min.apply(Math, res_b.map(x => x['0']));
var smallest = res_b.filter(x => x['0'] == minim);
```

```
smallest[0]["1"] * smallest[0]["2"];
```

```
## 1806
```

```
var v = [];
for (var i = 0; i < layers_size; i ++){
var idx = res.map(x => x[i]);
v[i] = idx.find(z => z== 0 | z == 1);
}
var nn = [];
for (var i = 0; i < 6; i ++){
nn[i] = v.splice(0, 25).join(" ").replace(/0/g, " ");
}
```

```
nn
```

```
## [ ' 1 1 1 1 1 1 1 1 1 1 1 1 1 ',
## ' 1 1 1 1 1 1 1 1 ',
## ' 1 1 1 1 1 1 1 1 1 1 ',
## ' 1 1 1 1 1 1 1 1 1 1 1 1 1 ',
## '1 1 1 1 1 1 1 1 1 ',
## ' 1 1 1 1 1 1 1 1 1 ' ]
```

To

**leave a comment**for the author, please follow the link and comment on their blog:**Colin Fay**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.