aboutsummaryrefslogtreecommitdiffstats
path: root/AoC2022
diff options
context:
space:
mode:
authorOscar Najera <hi@oscarnajera.com>2022-12-02 14:54:40 +0100
committerOscar Najera <hi@oscarnajera.com>2022-12-02 15:15:21 +0100
commitad4be3275a5fa46725292cfeee72fad6835159f4 (patch)
tree29f937f01e82850b66e080440642841f44dac61d /AoC2022
parentc961041fb211c4e72f306a113ef2bb4b8385be1d (diff)
downloadscratch-ad4be3275a5fa46725292cfeee72fad6835159f4.tar.gz
scratch-ad4be3275a5fa46725292cfeee72fad6835159f4.tar.bz2
scratch-ad4be3275a5fa46725292cfeee72fad6835159f4.zip
[AoC2022] Common lisp and makefile runner
Diffstat (limited to 'AoC2022')
-rw-r--r--AoC2022/01/makefile13
-rw-r--r--AoC2022/01/solver.el9
-rwxr-xr-xAoC2022/01/solver.lisp23
3 files changed, 39 insertions, 6 deletions
diff --git a/AoC2022/01/makefile b/AoC2022/01/makefile
new file mode 100644
index 0000000..b885a31
--- /dev/null
+++ b/AoC2022/01/makefile
@@ -0,0 +1,13 @@
+##
+# run solutions
+#
+# @file
+# @version 0.1
+
+
+
+# end
+
+run:
+ sbcl --load ~/.sbclrc --script solver.lisp
+ emacs -batch -l ert -l solver.el -f ert-run-tests-batch-and-exit
diff --git a/AoC2022/01/solver.el b/AoC2022/01/solver.el
index ec5710f..8dba125 100644
--- a/AoC2022/01/solver.el
+++ b/AoC2022/01/solver.el
@@ -6,10 +6,6 @@
;; Maintainer: Óscar Nájera <hi@oscarnajera.com>
;; Created: December 02, 2022
;; Modified: December 02, 2022
-;; Version: 0.0.1
-;; Keywords: abbrev bib c calendar comm convenience data docs emulations extensions faces files frames games hardware help hypermedia i18n internal languages lisp local maint mail matching mouse multimedia news outlines processes terminals tex tools unix vc wp
-;; Homepage: https://github.com/titan/solver
-;; Package-Requires: ((emacs "25.1"))
;;
;; This file is not part of GNU Emacs.
;;
@@ -18,7 +14,10 @@
;; Solution for AoC 2022 day 1
;;
;;; Code:
+
(require 'seq)
+(require 'subr-x)
+
(defun solver-elves-rations ()
(with-temp-buffer
(insert-file-contents "input")
@@ -38,5 +37,3 @@
(should (= 213159 (apply #'+ (seq-take (sort rations #'>) 3))))))
-(provide 'solver)
-;;; solver.el ends here
diff --git a/AoC2022/01/solver.lisp b/AoC2022/01/solver.lisp
new file mode 100755
index 0000000..ee84450
--- /dev/null
+++ b/AoC2022/01/solver.lisp
@@ -0,0 +1,23 @@
+; run sbcl --load ~/.sbclrc --script solver.lisp
+
+(ql:quickload '(:uiop :fiveam))
+
+(defun elves-rations ()
+ (reduce
+ (lambda (acc value)
+ (if (string= value "")
+ (cons 0 acc)
+ (progn
+ (incf (car acc) (parse-integer value))
+ acc)))
+ (uiop:read-file-lines "input")
+ :initial-value (list 0)))
+
+(fiveam:test results
+ (let ((rations (elves-rations)))
+ ;; calculate the maximum from each elves rations
+ (fiveam:is (= 75622 (apply #'max rations)))
+ ;; calculate the maximum from each elves rations
+ (fiveam:is (= 213159 (apply #'+ (subseq (sort rations #'>) 0 3))))))
+
+(fiveam:run-all-tests)