LU decomposition: Difference between revisions
m
→{{header|Raku}}: oops, fix variable name
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: bit more idiomatic) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: oops, fix variable name) |
||
Line 3,987:
my @U = matrix-zero $n;
for ^$n X ^$n -> ($i,$j) {
if $j ≥ $i { @U[$i;$j] = @
else { @L[$i;$j] = (@
}
@P, @Aʼ, @L, @U;
| |||