diff options
Diffstat (limited to 'packages/base/src/Internal/Sparse.hs')
-rw-r--r-- | packages/base/src/Internal/Sparse.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/packages/base/src/Internal/Sparse.hs b/packages/base/src/Internal/Sparse.hs index 6233b03..fbea11a 100644 --- a/packages/base/src/Internal/Sparse.hs +++ b/packages/base/src/Internal/Sparse.hs | |||
@@ -172,8 +172,10 @@ gmXv Dense{..} v | |||
172 | {- | general matrix - vector product | 172 | {- | general matrix - vector product |
173 | 173 | ||
174 | >>> let m = mkSparse [((0,999),1.0),((1,1999),2.0)] | 174 | >>> let m = mkSparse [((0,999),1.0),((1,1999),2.0)] |
175 | m :: GMatrix | ||
175 | >>> m !#> vector [1..2000] | 176 | >>> m !#> vector [1..2000] |
176 | fromList [1000.0,4000.0] | 177 | [1000.0,4000.0] |
178 | it :: Vector Double | ||
177 | 179 | ||
178 | -} | 180 | -} |
179 | infixr 8 !#> | 181 | infixr 8 !#> |