You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
402 B
Clojure
19 lines
402 B
Clojure
(defn median [lst]
|
|
(as-> (count lst) $
|
|
(quot $ 2)
|
|
(subvec (vec (sort lst)) (dec $) (inc $))
|
|
(if (even? (count lst)) (apply + $) (second $))
|
|
(quot $ 2)
|
|
)
|
|
)
|
|
|
|
(as-> (slurp "./in") $ ; "16,1,2,0,4,2,7,1,2,14"
|
|
(clojure.string/split $ #",")
|
|
(mapv read-string $)
|
|
(map (partial - (median $)) $)
|
|
(map #(Math/abs %) $)
|
|
(apply + $)
|
|
(println $)
|
|
)
|
|
|