RosettaCodeData/Task/QR-decomposition/Racket/qr-decomposition-3.rkt
Ingy döt Net 6f050a029e update
2013-06-05 21:47:54 +00:00

6 lines
175 B
Racket

(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]])