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

4 lines
99 B
Text

X=:i.# Y=:1 6 17 34 57 86 121 162 209 262 321
'Q R'=: QR X ^/ i.3
R %.~(|:Q)+/ .* Y
1 2 3