7 lines
205 B
Common Lisp
7 lines
205 B
Common Lisp
(setf g (make-array '(3 3) :initial-contents '((1 3 5) (2 4 7)(1 1 0))))
|
|
#2A((1 3 5) (2 4 7) (1 1 0))
|
|
|
|
(lu g)
|
|
#2A((1 0 0) (1/2 1 0) (1/2 -1 1))
|
|
#2A((2 4 7) (0 1 3/2) (0 0 -2))
|
|
#2A((0 1 0) (1 0 0) (0 0 1))
|