my_macros.clj

;; The below macro could have been simple function. Keeping it for reference though
(defmacro create-matrix
  "Clojure macro to create a matrix with any number of dimension"
          ([x & dim]
           (loop [ex ['->> x] d dim]
                 (if (empty? d)
                   (apply list ex)
                   (recur (into ex [`(repeat ~(first d)) 'vec])
                          (rest d)))
                 ))
          ([] nil)
          ([x] nil))