diff options
| -rw-r--r-- | day7/maxima.mx | 10 | ||||
| -rw-r--r-- | day7/part1.clj | 30 |
2 files changed, 23 insertions, 17 deletions
diff --git a/day7/maxima.mx b/day7/maxima.mx new file mode 100644 index 0000000..4625fdc --- /dev/null +++ b/day7/maxima.mx @@ -0,0 +1,10 @@ +load("descriptive")$ +batchload("./in.mx")$ /* Should define `input` list of numbers. */ + +calcfuel(pos, distmod) := + lreduce("+", map(lambda([n], distmod(abs(pos - n))), input))$ + +calcfuel(median(input), lambda([x],x)); +calcfuel(floor(mean(input)), lambda([x], (x*(x+1)/2))); +calcfuel(floor(mean(input)) + 1, lambda([x], (x*(x+1)/2))); + diff --git a/day7/part1.clj b/day7/part1.clj index 03c2aa6..f08e5b4 100644 --- a/day7/part1.clj +++ b/day7/part1.clj @@ -1,22 +1,18 @@ (defn median [lst] - (let [cnt (count lst) - hlf (quot cnt 2) - srt (sort lst)] - (cond->> (nth srt hlf) - (even? cnt) - (+ (nth srt (dec hlf))) - :true - (#(quot % 2)) - ) + (as-> (count lst) $ + (quot $ 2) + (subvec (vec (sort lst)) (dec $) (inc $)) + (if (even? (count lst)) (apply + $) (second $)) + (quot $ 2) ) ) -(->> (slurp "./in") ; "16,1,2,0,4,2,7,1,2,14" - (#(clojure.string/split % #",")) - (map read-string) - (#(map (partial - (median %)) %)) - (map #(Math/abs %)) - (apply +) - (println) - ) +(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 $) + ) |