fix AOC bugs

This commit is contained in:
2023-01-19 11:12:46 -07:00
parent 1d36d91377
commit d508727aaa
2 changed files with 5 additions and 3 deletions

View File

@@ -2,7 +2,7 @@
(importAs year2022.inputs.Day11 Monkeys)
(function :Float monkeyBusiness [:Array<Monkey> monkeys]
(apply * ~(.slice (sort (for monkey monkeys monkey.inspections)) -2)))
(apply * (.slice (sort (for monkey monkeys monkey.inspections)) -2)))
(function printMonkeys [monkeys]
(doFor [id monkey] (enumerate monkeys)
@@ -24,6 +24,8 @@
(MonkeysExample.main)
(Monkeys.main)
/*
// Unsolved.
(doFor num (range 10000)
(MonkeysExample.round false)
(Monkeys.round false)
@@ -35,4 +37,4 @@
(otherwise null))))
(assertEquals 2713310158.0 ~(monkeyBusiness MonkeysExample.monkeys))
(assertEquals 2713310158.0 ~(monkeyBusiness MonkeysExample.monkeys))*/

View File

@@ -47,4 +47,4 @@
(count (flatten visibleTrees) ->visible visible))))
(assertEquals 21 (visibleTrees "src/year2022/inputs/day8example.txt"))
(assertEquals 1672 (visibleTrees (input "8")))
(assertEquals 1672 (visibleTrees (input 8)))