day3-.clj

(defn day3* [input]
  (loop [i 2 field (init fieldr)]
    (let [[x y] (coords i)
          x' (+ fieldr x)
          y' (+ fieldr y)
          v (apply + (for [p [-1 0 1] q [-1 0 1] :when (not (= 0 p q))]
                       (get-in field [(+ y' q) (+ x' p)])))]
      (if (> v input)
        v
        (recur (inc i) (assoc-in field [y' x'] v))))))