The id-mat function in page 17 of the book, "Clojure for Machine Learning" by Akhil Wali, does not work.

page17.clj

(defn id-mat
  "Creates an identity matrix of n x n size"
  [n]
  (let [init (square-mat n 0 :implementation :clatrix)
        identity-f (fn [i j n]
                     (if (= i j) 1 n))]
    (cl/map-indexed identity-f init)))

;; clj-ml1.matrix-basics> (id-mat 5)
;;  A 5x5 matrix
;;  -------------
;;  1.00e+00  0.00e+00  0.00e+00  0.00e+00  0.00e+00 
;;  0.00e+00  1.00e+00  0.00e+00  0.00e+00  0.00e+00 
;;  0.00e+00  0.00e+00  1.00e+00  0.00e+00  0.00e+00 
;;  0.00e+00  0.00e+00  0.00e+00  1.00e+00  0.00e+00 
;;  0.00e+00  0.00e+00  0.00e+00  0.00e+00  1.00e+00