Advent Of Code 2021 - Clojure Solutions

advent_2021_1.clj

;; Advent Of Code 2021
;; Author : Pradeep Bishnoi
;; Solution for Problem 1a and 1b
;; Done via REPL, will polish them sooner.

(def depth '(199 200 208 210 200 207 240 269 260 263))

(def depth-file
  (clojure.string/split-lines (slurp "/tmp/advent/1a.txt")))

(defn tuple-compare [tuple]
  ;; tuple = (199, 200)
    (when (< (first tuple) 
             (last tuple))
        true))
  
(defn sum-my-tuple [tuple]
  (apply + tuple))

;; Solution for 1a
(->> depth-file
     (map #(Integer/parseInt %))
     (partition 2 1) ;; ((199 200) (200 208) (208 210) (200 207) ...)
     (filter tuple-compare)
     count)

;; Solution for 1b 
(->> depth-file
     (map #(Integer/parseInt %))
     (partition 3 1) ;; ((199 200 208) (200 208 210) (208 210 200) ...) 
     (map sum-my-tuple) ;; (607 618 618 617 647 ...)
     (partition 2 1) ;; ((607 618) (617 647) (647 716) (716 769) ...)
     (filter tuple-compare)
     count)

when instead of if is absolutely fine if you're ok with nil being returned. But in this specific case neither when nor if is really needed. You can simply return the result of < function call directly. < itself returns true/false, so there's no need to wrap if or when around it.

yes, valid point.