Handy Clojure utils functions.

utils.clj

(defn create-matrix
      "Creates a multi-dimensional vector with dimensions given in dims
      with the given default value"
          ([default-value & dims]
           (loop [val default-value remaining dims]
                 (if (empty? remaining)
                   val
                   (recur (vec (repeat (first remaining) val))
                          (rest remaining)))
                 ))
          ([] nil))


(defn apply-fn-times
  "Applies given function f for the given times t on the result of
  each application, starting with p.
  For ex (apply-fn-times inc 1 3) is equivalent to (inc(inc(inc 1)))"
  [f p t]
  ((apply comp (repeat t f)) p))