(ns sekai.util.util)

(defn reverse-map [m]
  (reduce (fn [acc [k v]] (assoc acc v k)) {} m))

(defn and-f [& funcs]
  (fn [arg] (doseq [f funcs] (f arg))))

(defn map-values [f m]
  (zipmap (keys m) (map f (vals m))))
