Gaussian elimination: Difference between revisions
→Another example
m (→{{header|REXX}}: added/changed comments and whitespace, aligned statements better.) |
|||
Line 1,529:
===Another example===
We use Rational numbers for having more precision. a % b is the rational a / b.
<lang Haskell>mult:: Num a => [[a]] -> [[a]] -> [[a]]
where ts = map (const 0).concat $ take 1 vss
bubble::([a] -> c) -> (c -> c -> Bool) -> [[a]] -> [[b]] -> ([[a]],[[b]])
Line 1,713 ⟶ 1,700:
True
</pre>
===Determinant and permutation matrix are given===
<lang Haskell>
|