RosettaCodeData/Task/QR-decomposition/J/qr-decomposition-4.j
2023-07-01 13:44:08 -04: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