Linting

Author: Oddsor

input/2024/input15.nippy

@@ -1,5 +1,4 @@
-(ns advent-of-code-clj.y2020.d01
-  (:require [clojure.string :as str]))
+(ns advent-of-code-clj.y2020.d01)
 
 (comment
   (def liste-av-tall (map parse-long
@@ -35,4 +34,4 @@
   (first (for [x liste-av-tall
                y (drop 1 liste-av-tall)
                :when (= 2020 (+ x y))]
-           (* x y))))
+           (* x y))))

src/advent_of_code_clj/y2020/d01.clj

@@ -1,5 +1,4 @@
-(ns advent-of-code-clj.y2020.d03
-  (:require [clojure.string :as str]))
+(ns advent-of-code-clj.y2020.d03)
 
 (def test-data "..##.........##.........##.........##.........##.........##.......  --->
 #...#...#..#...#...#..#...#...#..#...#...#..#...#...#..#...#...#..
@@ -33,4 +32,4 @@
        (x-til-høyre 3 kart)
        (x-til-høyre 5 kart)
        (x-til-høyre 7 kart)
-       (x-til-høyre 1 (take-nth 2 kart)))))
+       (x-til-høyre 1 (take-nth 2 kart)))))

src/advent_of_code_clj/y2020/d03.clj

@@ -1,6 +1,5 @@
 (ns advent-of-code-clj.y2020.d05
-  (:require [clojure.string :as str]
-            [com.rpl.specter :refer :all #_[srange-dynamic subselect ALL FIRST select-one]]))
+  (:require [com.rpl.specter :refer :all #_[srange-dynamic subselect ALL FIRST select-one]]))
 
 (def test-data
   [["BFFFBBFRRR" 70 7 567]
@@ -60,4 +59,4 @@
          (remove registrerte-sete-ider)
          (filter (fn [sete-id]
                    (and (registrerte-sete-ider (inc sete-id))
-                        (registrerte-sete-ider (dec sete-id))))))))
+                        (registrerte-sete-ider (dec sete-id))))))))

src/advent_of_code_clj/y2020/d05.clj

@@ -1,7 +1,5 @@
 (ns advent-of-code-clj.y2020.d07
   (:require [clojure.string :as str]
-            [meander.epsilon :as m]
-            [meander.strategy.epsilon :as r]
             [com.rpl.specter :as s]
             [datascript.core :as d]
             [clojure.walk :as walk]))
@@ -126,4 +124,4 @@ dotted black bags contain no other bags.")
                   (remove (comp #{"shiny gold bag"} :bag)
                           recursively-built-bags)))
   ;;
-  )
+  )

src/advent_of_code_clj/y2020/d07.clj

@@ -26,7 +26,7 @@
                       (apply min (keep data (apply adjacent point))))))
        (r/fold (r/monoid merge hash-map) assoc)))
 
-(r/fold (r/monoid merge hash-map) assoc (r/filter (fn [k v] (odd? v)) {[1 2] 1 :b 2 :c 3 :d 4}))
+(r/fold (r/monoid merge hash-map) assoc (r/filter (fn [_k v] (odd? v)) {[1 2] 1 :b 2 :c 3 :d 4}))
 (into [] (r/filter odd? [1 2 3 4]))
 
 (defn higher-adjacent-points [data point]
@@ -87,4 +87,4 @@
                 (sort >)
                 (take 3)
                 (apply *)
-                (= 1168440))])))
+                (= 1168440))])))

src/advent_of_code_clj/y2021/d09_map.clj

@@ -39,7 +39,7 @@ fold along x=5"))
 (defn fold [num at]
   (- at (Math/abs (- at num))))
 
-(defn new-coords [coords [c n :as rule]]
+(defn new-coords [coords [c n :as _rule]]
   (set (map (fn [[x y]]
               (case c
                 :y [x (fold y n)]

src/advent_of_code_clj/y2021/d13.clj

@@ -93,7 +93,7 @@ F = 1111")
     (true? x) 1
     :else x))
 
-(defn calc [{:keys [op content] :as packet}]
+(defn calc [{:keys [op content] :as _packet}]
   (if (= identity op) content
       (apply (comp coerce-int op)
              (map calc content))))
@@ -114,4 +114,4 @@ F = 1111")
   ;; Part 2
   (= 167737115857 (calc packet))
   ;
-  )
+  )

src/advent_of_code_clj/y2021/d16.clj

@@ -6,7 +6,7 @@
 
 (def test-data (parse "target area: x=20..30, y=-10..-5"))
 
-(defn distance-from-area? [[x y :as proj] [x1 x2 y1 y2 :as box]]
+(defn distance-from-area? [[x y :as _proj] [x1 x2 y1 y2 :as _box]]
   (if (and (>= x2 x x1)
            (>= y2 y y1))
     0
@@ -49,4 +49,4 @@
   (= 1070 (count (find-hits data)))
   (= 2701 (find-highest-y data))
   ;
-  )
+  )

src/advent_of_code_clj/y2021/d17.clj

@@ -1,6 +1,5 @@
 (ns advent-of-code-clj.y2021.d18
   (:require [clojure.zip :as zip]
-            [clojure.string :as str]
             [clojure.walk :as walk]))
 
 (defn apply-until [f pred z]
@@ -133,4 +132,4 @@
   (time (= 3756 (magnitude (reduce add data))))
   (time (= 4585 (max-magnitude data)))
   ;;
-  )
+  )

src/advent_of_code_clj/y2021/d18.clj

@@ -51,7 +51,7 @@ Player 2 starting position: 8"))
 (defn play-game-2 [data nth-die]
   (reduce (fn [{:keys [die current-player] :as state} nth-die]
             (let [player-pos (modpos (+ (get state current-player)
-                                        (+ die (to-num nth-die))))
+                                        die (to-num nth-die)))
                   new-state
                   (-> state
                       (assoc :die (+ 3 die))

src/advent_of_code_clj/y2021/d21.clj

@@ -1,7 +1,6 @@
 (ns y2022.d06
   (:require [tech.v3.datatype.argops :as da]
-            [tech.v3.datatype.rolling :as dr]
-            [criterium.core :as crit]))
+            [tech.v3.datatype.rolling :as dr]))
 
 (defn unique-sequence-end-index [length data]
   (->> data
@@ -37,4 +36,4 @@
    (with-bindings {#'*unique-sequence-end-index-fn* unique-sequence-end-index-2}
      (= 3837 (part-2 (slurp "input/2022/06.txt")))))
   ;; Execution time mean : 5,866074 ms
-  )
+  )

src/y2022/d06.clj

@@ -1,7 +1,6 @@
 (ns y2022.d19
   (:require [advent-of-code-clj.utils :refer [sum]]
-            [clojure.string :as str])
-  (:import (java.util ArrayDeque)))
+            [clojure.string :as str]))
 
 (def test-data "Blueprint 1: Each ore robot costs 4 ore. Each clay robot costs 2 ore. Each obsidian robot costs 3 ore and 14 clay. Each geode robot costs 2 ore and 7 obsidian.
 Blueprint 2: Each ore robot costs 2 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 8 clay. Each geode robot costs 3 ore and 12 obsidian.")
@@ -27,15 +26,15 @@ Blueprint 2: Each ore robot costs 2 ore. Each clay robot costs 3 ore. Each obsid
   (map parse-blueprint (str/split-lines data)))
 
 (defn build-ore-bot [{{ore-cost :ore} :ore-bot :keys [max-ore-cost]}
-                     [ore clay obsidian geode obot :as st]]
+                     [ore _clay _obsidian _geode obot :as st]]
   (when (and (> max-ore-cost obot)
              (>= ore ore-cost))
     (-> st
         (update 0 - ore-cost)
         (update 4 inc))))
 
 (defn build-clay-bot [{{ore-cost :ore} :clay-bot :keys [max-clay-cost]}
-                      [ore clay obsidian geode obot cbot :as st]]
+                      [ore _clay _obsidian _geode _obot cbot :as st]]
   (when (and (> max-clay-cost cbot)
              (>= ore ore-cost))
     (-> st
@@ -53,15 +52,15 @@ Blueprint 2: Each ore robot costs 2 ore. Each clay robot costs 3 ore. Each obsid
         (update 6 inc))))
 
 (defn build-geode-bot [{{ore-cost :ore obsidian-cost :obsidian} :geode-bot}
-                       [ore clay obsidian :as st]]
+                       [ore _clay obsidian :as st]]
   (when (and (>= ore ore-cost)
              (>= obsidian obsidian-cost))
     (-> st
         (update 0 - ore-cost)
         (update 2 - obsidian-cost)
         (update 7 inc))))
 
-(defn heuristic [blueprint [ore clay obsidian geode orebot claybot obsidianbot geodebot]]
+(defn heuristic [blueprint [_ore _clay _obsidian _geode orebot claybot obsidianbot geodebot]]
   (float (+ geodebot
             (/ (+ geodebot
                   (/ (+ (/ orebot (-> blueprint :geode-bot :ore))

src/y2022/d19.clj

@@ -63,4 +63,4 @@
   (part-1 (slurp "input/2022/20.txt"))
   (part-2 (slurp "input/2022/20.txt"))
   (with-bindings {#'*reorder-function* reorder-fast} (part-1 (slurp "input/2022/20.txt")))
-  (with-bindings {#'*reorder-function* reorder-fast} (part-2 (slurp "input/2022/20.txt"))))
+  (with-bindings {#'*reorder-function* reorder-fast} (part-2 (slurp "input/2022/20.txt"))))