kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

use assert in AOC solutions

Browse Source
This commit is contained in:
Nat Quayle Nelson
2020-12-04 10:09:53 -07:00
parent c0dd21cfe1
commit 24c1b5a604
1 changed files with 22 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
projects/advent-of-code/src/year2020/Solutions.kiss
View File

@@ -1,35 +1,25 @@
(defun main [] (defun main []
// Day 1 // Day 1
(let [p (pairWithSum 2020 [1721 979 366 299 675 1456])] (let [p (pairWithSum 2020 [1721 979 366 299 675 1456])]
(unless (and (has p 1721) (has p 299)) (assert (and (has p 1721) (has p 299)) "pairWithSum is broken"))
(throw "pairWithSum is broken")))
(let [[a b] (pairWithSum 2020 (Util.readInts "src/year2020/inputs/day1-1.txt"))] (let [[a b] (pairWithSum 2020 (Util.readInts "src/year2020/inputs/day1-1.txt"))]
(unless (= 545379 (* a b)) (assert (= 545379 (* a b)) "pairWithSum is broken"))
(throw "pairWithSum is broken")))
(let [t (trioWithSum 2020 [1721 979 366 299 675 1456])] (let [t (trioWithSum 2020 [1721 979 366 299 675 1456])]
(unless (and (has t 675) (has t 366) (has t 979)) (assert (and (has t 675) (has t 366) (has t 979))
(throw "trioWithSum is broken"))) "trioWithSum is broken"))
(let [[a b c] (trioWithSum 2020 (Util.readInts "src/year2020/inputs/day1-1.txt"))] (let [[a b c] (trioWithSum 2020 (Util.readInts "src/year2020/inputs/day1-1.txt"))]
(unless (= 257778836 (* a b c)) (assert (= 257778836 (* a b c))
(throw "trioWithSum is broken"))) "trioWithSum is broken"))
// Day 2 // Day 2
(unless (Passwords.validateInputLine "1-3 a: abcde" Passwords.parsePasswordCheck1) (assert (Passwords.validateInputLine "1-3 a: abcde" Passwords.parsePasswordCheck1))
(throw "parsePasswordCheck1 is broken")) (assert !(Passwords.validateInputLine "1-3 b: cdefg" Passwords.parsePasswordCheck1))
(when (Passwords.validateInputLine "1-3 b: cdefg" Passwords.parsePasswordCheck1) (assert (Passwords.validateInputLine "2-9 c: ccccccccc" Passwords.parsePasswordCheck1))
(throw "parsePasswordCheck1 is broken")) (assert (= 655 (count (map (Util.readLines "src/year2020/inputs/day2-1.txt") (.bind Passwords.validateInputLine _ Passwords.parsePasswordCheck1)) (lambda [v] v))))
(unless (Passwords.validateInputLine "2-9 c: ccccccccc" Passwords.parsePasswordCheck1) (assert (Passwords.validateInputLine "1-3 a: abcde" Passwords.parsePasswordCheck2))
(throw "parsePasswordCheck1 is broken")) (assert !(Passwords.validateInputLine "1-3 b: cdefg" Passwords.parsePasswordCheck2))
(unless (= 655 (count (map (Util.readLines "src/year2020/inputs/day2-1.txt") (.bind Passwords.validateInputLine _ Passwords.parsePasswordCheck1)) (lambda [v] v))) (assert !(Passwords.validateInputLine "2-9 c: ccccccccc" Passwords.parsePasswordCheck2))
(throw "parsePasswordCheck1 is broken")) (assert (= 673 (count (map (Util.readLines "src/year2020/inputs/day2-1.txt") (.bind Passwords.validateInputLine _ Passwords.parsePasswordCheck2)) (lambda [v] v))))
(unless (Passwords.validateInputLine "1-3 a: abcde" Passwords.parsePasswordCheck2)
(throw "parsePasswordCheck2 is broken"))
(when (Passwords.validateInputLine "1-3 b: cdefg" Passwords.parsePasswordCheck2)
(throw "parsePasswordCheck2 is broken"))
(when (Passwords.validateInputLine "2-9 c: ccccccccc" Passwords.parsePasswordCheck2)
(throw "parsePasswordCheck2 is broken"))
(unless (= 673 (count (map (Util.readLines "src/year2020/inputs/day2-1.txt") (.bind Passwords.validateInputLine _ Passwords.parsePasswordCheck2)) (lambda [v] v)))
(throw "parsePasswordCheck2 is broken"))
// Day 3 // Day 3
(deflocal exampleHillTile [ (deflocal exampleHillTile [
@@ -44,26 +34,19 @@
"#.##...#..." "#.##...#..."
"#...##....#" "#...##....#"
".#..#...#.#"]) ".#..#...#.#"])
(unless (= "..#.##.####" (Toboggan.pathString exampleHillTile 0 0 3 1)) (assert (= "..#.##.####" (Toboggan.pathString exampleHillTile 0 0 3 1)))
(throw "Toboggan.path is broken")) (assert (= 2 (Toboggan.pathTrees exampleHillTile 0 0 1 1)))
(unless (= 2 (Toboggan.pathTrees exampleHillTile 0 0 1 1)) (assert (= 3 (Toboggan.pathTrees exampleHillTile 0 0 5 1)))
(throw "Toboggan.path is broken")) (assert (= 4 (Toboggan.pathTrees exampleHillTile 0 0 7 1)))
(unless (= 3 (Toboggan.pathTrees exampleHillTile 0 0 5 1)) (assert (= 2 (Toboggan.pathTrees exampleHillTile 0 0 1 2)))
(throw "Toboggan.path is broken")) (assert (= 289 (Util.countChar "#" (Toboggan.pathString (Util.readLines "src/year2020/inputs/day3-1.txt") 0 0 3 1))))
(unless (= 4 (Toboggan.pathTrees exampleHillTile 0 0 7 1)) (assert (= 5522401584 (let [hillTile (Util.readLines "src/year2020/inputs/day3-1.txt")]
(throw "Toboggan.path is broken"))
(unless (= 2 (Toboggan.pathTrees exampleHillTile 0 0 1 2))
(throw "Toboggan.path is broken"))
(unless (= 289 (Util.countChar "#" (Toboggan.pathString (Util.readLines "src/year2020/inputs/day3-1.txt") 0 0 3 1)))
(throw "Toboggan.path is broken"))
(unless (= 5522401584 (let [hillTile (Util.readLines "src/year2020/inputs/day3-1.txt")]
(* (*
(Toboggan.pathTrees hillTile 0 0 1 1) (Toboggan.pathTrees hillTile 0 0 1 1)
(Toboggan.pathTrees hillTile 0 0 3 1) (Toboggan.pathTrees hillTile 0 0 3 1)
(Toboggan.pathTrees hillTile 0 0 5 1) (Toboggan.pathTrees hillTile 0 0 5 1)
(Toboggan.pathTrees hillTile 0 0 7 1) (Toboggan.pathTrees hillTile 0 0 7 1)
(Toboggan.pathTrees hillTile 0 0 1 2)))) (Toboggan.pathTrees hillTile 0 0 1 2))))))
(throw "Toboggan.path is broken")))
(defun :kiss.List<Int> pairWithSum [sum :kiss.List<Int> numbers] (defun :kiss.List<Int> pairWithSum [sum :kiss.List<Int> numbers]
// Put the numbers in a map for random access. This gives an O(n) solution // Put the numbers in a map for random access. This gives an O(n) solution