My attempt at matrix multiplication in Clojure

gistfile1.clj

(defn C_yx [m1 m2 y x num-cols num-rows]
  (reduce +
	  (map *
	       (map #(nth (nth m1 y) %1) (range num-cols))
	       (map #(nth (nth m2 %1) x) (range num-rows)))))

(defn multiply [m1 m2]
  (let [num-rows (count m1) num-cols (count (first m1))]
    (for [y (range num-rows)]
      (for [x (range num-cols)]
	(C_yx m1 m2 y x num-rows num-cols)))))