working with more stuff

3 files changed, 37 insertions, 12 deletions

diff --git a/AoC2022/01/solver.lisp b/AoC2022/01/solver.lisp
index d39bb7c..dd09c07 100755
--- a/AoC2022/01/solver.lisp
+++ b/AoC2022/01/solver.lisp
@@ -2,22 +2,46 @@
 
 (ql:quickload '(:uiop :fiveam))
 
-(defun elves-rations ()
+(defun elves-rations (input)
     (reduce
      (lambda (acc value)
-       (if (string= value "")
+       (if (equal value "")
            (cons 0 acc)
            (progn
              (incf (car acc) (parse-integer value))
              acc)))
-     (uiop:read-file-lines "input")
+     input
      :initial-value (list 0)))
 
+(defun elves-rations-nc (filename)
+  (with-open-file (in filename)
+    (let ((acc (list 0)))
+      (loop for line = (read-line in nil) while line
+            for num = (parse-integer line :junk-allowed t)
+            if (numberp num) do
+              (incf (car acc) num)
+            else do
+              (push 0 acc))
+      acc)))
+
+(defun elves-rations-max (filename)
+  (with-open-file (in filename)
+    (let ((max 0)
+          (elf 0))
+      (loop for line = (read-line in nil) while line
+            for num = (parse-integer line :junk-allowed t)
+            if (numberp num) do
+              (incf elf num)
+            else do
+              (setf max (max elf max))
+              (setf elf 0))
+      (max elf max))))
+
 (fiveam:test results
-  (let ((rations (elves-rations)))
+  (let ((rations (elves-rations (uiop:read-file-lines "input"))))
     ;; calculate the maximum from each elves rations
-    (fiveam:is (= 75622 (apply #'max rations)))
+    (fiveam:is (= 75622 (reduce #'max rations)))
+    (fiveam:is (= 75622 (reduce #'max (elves-rations-nc "input"))))
+    (fiveam:is (= 75622 (elves-rations-max "input")))
     ;; calculate the maximum from each elves rations
-    (fiveam:is (= 213159 (apply #'+ (subseq (sort rations #'>) 0 3))))))
-
-
+    (fiveam:is (= 213159 (reduce #'+ (subseq (sort rations #'>) 0 3))))))
diff --git a/AoC2022/aocclj/src/aocclj/day01.clj b/AoC2022/aocclj/src/aocclj/day01.clj
index 8fca2e6..df6d101 100644
--- a/AoC2022/aocclj/src/aocclj/day01.clj
+++ b/AoC2022/aocclj/src/aocclj/day01.clj
@@ -2,17 +2,16 @@
   (:require [clojure.string :as str]))
 
 (defn preprocess [input]
-  (transduce
+  (sequence
    (comp
     (map parse-long)
     (partition-by nil?)
     (take-nth 2)
     (map (partial reduce +)))
-   conj
    input))
 
 (defn part1 [input]
-  (apply max (preprocess input)))
+  (reduce max (preprocess input)))
 
 (defn part2 [input]
-  (->> input preprocess sort (take 3) (apply +)))
+  (->> input preprocess (sort >) (take 3) (reduce +)))
diff --git a/AoC2022/readme.org b/AoC2022/readme.org
index ae155cb..cab252c 100644
--- a/AoC2022/readme.org
+++ b/AoC2022/readme.org
@@ -6,3 +6,5 @@ From any directory to execute the solutions call
 #+begin_src bash
 make -C .. <language>
 #+end_src
+* Review on other languages
+https://github.com/abyala/advent-2022-clojure