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)

yes, valid point.