partial-nth #clojure

partial-nth.clj

(defn partial-nth
  "Takes a function f and position pos with one fewer than required args and
  returns a fn that takes one argument which will be applied at pos (where pos
  is 0 indexed ordinal position)"
  [f pos & args]
  (fn [x]
    (let [[before after] (split-at pos args)]
      (apply f (concat before [x] after)))))