day7/part1.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

(def input
  (->> (slurp "./in") ; "16,1,2,0,4,2,7,1,2,14"
       (#(clojure.string/split % #","))
       (map read-string)
       )
  )

(defn median [lst]
  (let [cnt (count lst)
        hlf (quot cnt 2)
        srt (sort lst)]
    (if (odd? cnt)
      (nth srt hlf)
      (quot (+ (nth srt hlf) (nth srt (dec hlf))) 2)
      )
    )
  )

(println
  (->> input
       (map (partial - (median input)))
       (map #(if (neg? %) (- %) %))
       (apply +)
       )
  )