diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2022-11-30 19:55:31 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2022-11-30 19:55:31 -0500 |
| commit | 8d43e37df99f280377bed90284d6ac2428334804 (patch) | |
| tree | 3a5042c9af29da52b4bac38fd78b3ccde77a1dbc /day7/part2.clj | |
| parent | 66ed0b9d27850dc653abc8baa75884f3de311bfa (diff) | |
move 2021 days to folder; update README
Diffstat (limited to 'day7/part2.clj')
| -rw-r--r-- | day7/part2.clj | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/day7/part2.clj b/day7/part2.clj deleted file mode 100644 index b96b55d..0000000 --- a/day7/part2.clj +++ /dev/null @@ -1,20 +0,0 @@ -(defn calc-fuel [lst pos] - (reduce #(as-> %2 $ - (- pos $) - (Math/abs $) - (/ (* $ (inc $)) 2) - (+ %1 $) - ) - 0 lst - ) - ) - -(let [input (as-> (slurp "./in") $ ;"16,1,2,0,4,2,7,1,2,14" - (clojure.string/split $ #",") - (map read-string $) - ) - mean (quot (apply + input) (count input))] - (println (min (calc-fuel input mean) - (calc-fuel input (inc mean)))) - ) - |