diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-02-02 09:14:55 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-02-02 09:14:55 +0000 |
| commit | 7e736bc767942e38f4c0cf4a4d8a324b17c0316d (patch) | |
| tree | 98f4f500d52314714eb089c3b4bb95392e9bb23c /lib/Numeric | |
| parent | 2a3baa18b508851a9d30e4abc7d7de7978146557 (diff) | |
table, splitEvery
Diffstat (limited to 'lib/Numeric')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs index 51e0922..6b0fb08 100644 --- a/lib/Numeric/LinearAlgebra/Algorithms.hs +++ b/lib/Numeric/LinearAlgebra/Algorithms.hs | |||
| @@ -729,7 +729,7 @@ m2=(4><3) | |||
| 729 | -} | 729 | -} |
| 730 | kronecker :: (Field t) => Matrix t -> Matrix t -> Matrix t | 730 | kronecker :: (Field t) => Matrix t -> Matrix t -> Matrix t |
| 731 | kronecker a b = fromBlocks | 731 | kronecker a b = fromBlocks |
| 732 | . partit (cols a) | 732 | . splitEvery (cols a) |
| 733 | . map (reshape (cols b)) | 733 | . map (reshape (cols b)) |
| 734 | . toRows | 734 | . toRows |
| 735 | $ flatten a `outer` flatten b | 735 | $ flatten a `outer` flatten b |