diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-06-30 14:38:52 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-06-30 14:38:52 +0200 |
| commit | 4ada25636995115f2b26707870f611a138f4e20b (patch) | |
| tree | 07ade269d5b98ae8284d2064bb3a8ea928e3e405 /packages/tests/src/Numeric | |
| parent | 4730254f061832591d4a44c86d3bdfa4620f4322 (diff) | |
subMatrix changed to non copying slice
Diffstat (limited to 'packages/tests/src/Numeric')
| -rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 79cb769..d9bc9a0 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs | |||
| @@ -536,7 +536,7 @@ sliceTest = utest "slice test" $ and | |||
| 536 | 536 | ||
| 537 | testSlice f x@(size->sz@(r,c)) = all (==f x) (map f (g y1 ++ g y2)) | 537 | testSlice f x@(size->sz@(r,c)) = all (==f x) (map f (g y1 ++ g y2)) |
| 538 | where | 538 | where |
| 539 | subm = sliceMatrix | 539 | subm = subMatrix |
| 540 | g y = [ subm (a*r,b*c) sz y | a <-[0..2], b <- [0..2]] | 540 | g y = [ subm (a*r,b*c) sz y | a <-[0..2], b <- [0..2]] |
| 541 | h z = fromBlocks (replicate 3 (replicate 3 z)) | 541 | h z = fromBlocks (replicate 3 (replicate 3 z)) |
| 542 | y1 = h x | 542 | y1 = h x |