10 lines
135 B
Text
10 lines
135 B
Text
|
: (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)
|