6 lines
247 B
Racket
6 lines
247 B
Racket
> (require math)
|
|
> (matrix-qr (matrix [[12 -51 4]
|
|
[ 6 167 -68]
|
|
[-4 24 -41]]))
|
|
(array #[#[6/7 -69/175 -58/175] #[3/7 158/175 6/175] #[-2/7 6/35 -33/35]])
|
|
(array #[#[14 21 -14] #[0 175 -70] #[0 0 35]])
|