From 92f0857f8f3644e31739f63628156c4b0384b3ac Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Mon, 5 Dec 2022 00:04:50 +0100 Subject: [AoC2022] Elisp + common lisp 04 --- AoC2022/04/solver.el | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 AoC2022/04/solver.el (limited to 'AoC2022/04/solver.el') diff --git a/AoC2022/04/solver.el b/AoC2022/04/solver.el new file mode 100644 index 0000000..854b247 --- /dev/null +++ b/AoC2022/04/solver.el @@ -0,0 +1,29 @@ +(require 'subr-x) + +(defun solver-subinterval (a0 a1 b0 b1) + "Test if [b0;b1] within [a0;a1]" + (and (<= a0 b0 ) (>= a1 b1))) + +(defun solver-subcontained (a0 a1 b0 b1) + (or (solver-subinterval a0 a1 b0 b1) + (solver-subinterval b0 b1 a0 a1))) + +(defun solver-overlap (a0 a1 b0 b1) + "Test if [b0;b1] overlaps [a0;a1]" + (and (<= a0 b1) (<= b0 a1))) + +(defun solver-sections-fulfills (func line) + (apply func (mapcar #'string-to-number + (split-string line "[,-]")))) + +(defun solver-count-according (func) + (with-temp-buffer + (insert-file-contents "input") + (cl-loop for l = (buffer-substring-no-properties (line-beginning-position) (line-end-position)) + while (not (string-blank-p l)) + count (solver-sections-fulfills func l) + do (forward-line)))) + +(ert-deftest test-problems () + (should (= 515 (solver-count-according #'solver-subcontained))) + (should (= 883 (solver-count-according #'solver-overlap)))) -- cgit v1.2.3