diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-06-06 18:42:42 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-06-06 18:42:42 +0200 |
| commit | c680fbb7a743b2fc519987a4d5f24bb9b675655f (patch) | |
| tree | dfe7ad57aa6fe8c0a8427884db1b7a0ca85f73ba /packages/base/src/Numeric/Vector.hs | |
| parent | 66db67b299bd91f3cf35f93500e05eaf6c8085d3 (diff) | |
support for Int64 elements
Diffstat (limited to 'packages/base/src/Numeric/Vector.hs')
| -rw-r--r-- | packages/base/src/Numeric/Vector.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/packages/base/src/Numeric/Vector.hs b/packages/base/src/Numeric/Vector.hs index 076f485..017196c 100644 --- a/packages/base/src/Numeric/Vector.hs +++ b/packages/base/src/Numeric/Vector.hs | |||
| @@ -41,6 +41,14 @@ instance Num (Vector I) where | |||
| 41 | abs = vectorMapI Abs | 41 | abs = vectorMapI Abs |
| 42 | fromInteger = fromList . return . fromInteger | 42 | fromInteger = fromList . return . fromInteger |
| 43 | 43 | ||
| 44 | instance Num (Vector Z) where | ||
| 45 | (+) = adaptScalar addConstant add (flip addConstant) | ||
| 46 | negate = scale (-1) | ||
| 47 | (*) = adaptScalar scale mul (flip scale) | ||
| 48 | signum = vectorMapL Sign | ||
| 49 | abs = vectorMapL Abs | ||
| 50 | fromInteger = fromList . return . fromInteger | ||
| 51 | |||
| 44 | instance Num (Vector Float) where | 52 | instance Num (Vector Float) where |
| 45 | (+) = adaptScalar addConstant add (flip addConstant) | 53 | (+) = adaptScalar addConstant add (flip addConstant) |
| 46 | negate = scale (-1) | 54 | negate = scale (-1) |