diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-05-28 10:32:21 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-05-28 12:25:48 +0200 |
| commit | c0409bdce707fed49bedb213c21e6cc3e23b9aec (patch) | |
| tree | e079624a9fe207b5f4187801e9e05fc13757e8c9 /packages/base/src/Numeric | |
| parent | 3f68d78613ed61540c38548fb3b7e8fca77a85d2 (diff) | |
remap autoconformable
Diffstat (limited to 'packages/base/src/Numeric')
| -rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/Util.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Util.hs b/packages/base/src/Numeric/LinearAlgebra/Util.hs index 60079e7..f09bdb5 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Util.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Util.hs | |||
| @@ -485,5 +485,6 @@ test = (and ok, print ok) | |||
| 485 | md = fromInt m :: Matrix Double | 485 | md = fromInt m :: Matrix Double |
| 486 | ok = [ tr m <> m == toInt (tr md <> md) | 486 | ok = [ tr m <> m == toInt (tr md <> md) |
| 487 | , m <> tr m == toInt (md <> tr md) | 487 | , m <> tr m == toInt (md <> tr md) |
| 488 | , m ?? (Take 2, Take 3) == remap (asColumn (range 2)) (asRow (range 3)) m | ||
| 488 | ] | 489 | ] |
| 489 | 490 | ||