bert/adventofcode
1
0
Fork 0
mirror of https://github.com/bertptrs/adventofcode.git synced 2025-12-25 12:50:32 +01:00
Code Issues Projects Releases Wiki Activity

Solution to day 20 part 1.

Browse Source
This commit is contained in:
Bert Peters
2017-12-20 14:01:09 +01:00
parent 9b0f2cfdb5
commit bb8c0e0658
2 changed files with 1017 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1000
2017/day-20/input.txt Normal file
View File

File diff suppressed because it is too large Load Diff

17
2017/day-20/solution.r Executable file
View File

@@ -0,0 +1,17 @@
#!/usr/bin/env Rscript
data <- readLines("stdin")
cleaned <- gsub(" $", "", gsub("^[^0-9-]+", "", gsub("[^0-9-]+", " ", data)))
tc <- textConnection(cleaned)
input <- read.csv(tc, header=FALSE, sep=" ")
close(tc)
accs <- rowSums(abs(input[,7:9]))
speeds <- rowSums(abs(input[,4:6]))
perm <- order(accs, speeds)
print(perm[1] - 1)