7 lines
188 B
Clojure
7 lines
188 B
Clojure
(defn median [ns]
|
|
(let [ns (sort ns)
|
|
cnt (count ns)
|
|
mid (bit-shift-right cnt 1)]
|
|
(if (odd? cnt)
|
|
(nth ns mid)
|
|
(/ (+ (nth ns mid) (nth ns (dec mid))) 2))))
|