diff options
| author | Vivian McPhail <haskell.vivian.mcphail@gmail.com> | 2010-09-12 01:16:21 +0000 |
|---|---|---|
| committer | Vivian McPhail <haskell.vivian.mcphail@gmail.com> | 2010-09-12 01:16:21 +0000 |
| commit | 9c087c435a5c8762fa66458899a36ac505e45128 (patch) | |
| tree | 39834f19ce28157e08d7be529dca1426ab5515dc /lib/Numeric/LinearAlgebra/Tests.hs | |
| parent | 996d2fdb53154993ac02b5350cd4941548e6a61e (diff) | |
improve chain -> optimiseMult function / documentation
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs index 2d5b0da..aa7b01c 100644 --- a/lib/Numeric/LinearAlgebra/Tests.hs +++ b/lib/Numeric/LinearAlgebra/Tests.hs | |||
| @@ -287,7 +287,7 @@ sumprodTest = TestList [ | |||
| 287 | 287 | ||
| 288 | --------------------------------------------------------------------- | 288 | --------------------------------------------------------------------- |
| 289 | 289 | ||
| 290 | chainTest = utest "chain" $ foldl1' (<>) ms |~| chain ms where | 290 | chainTest = utest "chain" $ foldl1' (<>) ms |~| optimiseMult ms where |
| 291 | ms = [ diag (fromList [1,2,3 :: Double]) | 291 | ms = [ diag (fromList [1,2,3 :: Double]) |
| 292 | , konst 3 (3,5) | 292 | , konst 3 (3,5) |
| 293 | , (5><10) [1 .. ] | 293 | , (5><10) [1 .. ] |