RosettaCodeData/Task/Identity-matrix/Clojure/identity-matrix-3.clj

3 lines
85 B
Clojure

=> (identity-matrix 5)
[[1 0 0 0 0] [0 1 0 0 0] [0 0 1 0 0] [0 0 0 1 0] [0 0 0 0 1]]