RosettaCodeData/Task/Identity-matrix/PicoLisp/identity-matrix-2.l
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07: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)