aboutsummaryrefslogtreecommitdiffstats
path: root/AoC2022
diff options
context:
space:
mode:
Diffstat (limited to 'AoC2022')
-rw-r--r--AoC2022/07/solver.el58
1 files changed, 27 insertions, 31 deletions
diff --git a/AoC2022/07/solver.el b/AoC2022/07/solver.el
index 38354ff..910a81d 100644
--- a/AoC2022/07/solver.el
+++ b/AoC2022/07/solver.el
@@ -17,35 +17,23 @@
(require 'cl-lib)
+(require 'subr-x)
- (insert "$ cd /
-$ ls
-dir a
-14848514 b.txt
-8504156 c.dat
-dir d
-$ cd a
-$ ls
-dir e
-29116 f
-2557 g
-62596 h.lst
-$ cd e
-$ ls
-584 i
-$ cd ..
-$ cd ..
-$ cd d
-$ ls
-4060174 j
-8033020 d.log
-5626152 d.ext
-7214296 k")
+(ert-deftest test-solver ()
+ (with-temp-buffer
+ (insert-file-contents "input")
+ (let* ((dir-sizes
+ (thread-first
+ (split-string (buffer-string) "\n")
+ (solver-parse-listing)
+ (solver-aggregate-size)))
+ (total-disk 70000000)
+ (free-disk (- total-disk (cadr dir-sizes)))
+ (needed 30000000)
+ (to-free (- needed free-disk)))
+ (should (= 1845346 (solver-add-dir-size dir-sizes)))
+ (should (= 3636703 (solver-delete-what dir-sizes to-free))))))
-(with-temp-buffer
- (insert-file-contents "input")
- (solver-add-dir-size
- (solver-parse-listing (split-string (buffer-string) "\n"))))
(defun solver-parse-listing (lines)
(cl-labels ((scan ()
@@ -62,7 +50,7 @@ $ ls
(car (scan))))
-(defun solver-add-dir-size (tree)
+(defun solver-aggregate-size (tree)
(cl-labels ((combiner (tri)
(list (car tri)
(adder tri)
@@ -79,9 +67,17 @@ $ ls
(adder item))))
(cdr tri) 0)))
- (cl-loop for (_ size) on (flatten-tree (combiner tree)) by #'cddr
- when (< size 100000)
- sum size)))
+ (flatten-tree (combiner tree))))
+
+(defun solver-add-dir-size (sizes)
+ (cl-loop for (_ size) on sizes by #'cddr
+ when (< size 100000)
+ sum size))
+
+(defun solver-delete-what (sizes required)
+ (cl-loop for (_ size) on sizes by #'cddr
+ when (> size required)
+ minimizing size))
(provide 'solver)
;;; solver.el ends here