RosettaCodeData/Task/Identity-matrix/PicoLisp/identity-matrix-2.l
2023-07-01 13:44:08 -04:00

9 lines
135 B
Common Lisp

: (identity 3)
-> ((1 0 0) (0 1 0) (0 0 1))
: (mapc println (identity 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)