RosettaCodeData/Task/Gaussian-elimination/Mathematica/gaussian-elimination.math
2023-07-01 13:44:08 -04:00

1 line
95 B
Text

GaussianElimination[A_?MatrixQ, b_?VectorQ] := Last /@ RowReduce[Flatten /@ Transpose[{A, b}]]