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

Add implementation for part 2.

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

1
2017/README.md
View File

@@ -27,6 +27,7 @@ The current plan, in no particular order:
- [x] PHP - [Day 19](./day-19/solution.php) - [x] PHP - [Day 19](./day-19/solution.php)
- [ ] Prolog - [ ] Prolog
- [ ] Python - [ ] Python
- [x] R - [Day 20](./day-20/solution.r)
- [x] Ruby - [Day 08](./day-08/solution.rb) - [x] Ruby - [Day 08](./day-08/solution.rb)
- [x] Rust - [Day 14](./day-14/solution.rs) - [x] Rust - [Day 14](./day-14/solution.rs)
- [x] Scala - [Day 11](./day-11/solution.scala) - [x] Scala - [Day 11](./day-11/solution.scala)

12
2017/day-20/solution.r
View File

@@ -14,4 +14,16 @@ speeds <- rowSums(abs(input[,4:6]))
perm <- order(accs, speeds) perm <- order(accs, speeds)
print(perm[1] - 1) print(perm[1] - 1)
for (i in 1:100) {
# Update positions, speeds
for (coord in 1:3) {
input[,coord+3] <- input[,coord+3] + input[,coord+6]
input[,coord] <- input[,coord] + input[,coord+3]
}
dups = !(duplicated(input[,1:3]) | duplicated(input[,1:3], fromLast=TRUE))
input = input[dups,]
}
print(nrow(input))