diff options
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)))) - ) - |