diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-05-25 08:46:59 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-05-25 08:46:59 +0200 |
commit | 11095a22c59bed6a011723641dfb782415e2c02b (patch) | |
tree | fde840b71f395077b274a15ae3e0e3935d06818c /packages/base/src/Numeric/Vectorized.hs | |
parent | 88a39a5d1bdf7799a2e1f38d420f4392bb9c35bc (diff) |
range
Diffstat (limited to 'packages/base/src/Numeric/Vectorized.hs')
-rw-r--r-- | packages/base/src/Numeric/Vectorized.hs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/packages/base/src/Numeric/Vectorized.hs b/packages/base/src/Numeric/Vectorized.hs index 70bd48b..d0ff562 100644 --- a/packages/base/src/Numeric/Vectorized.hs +++ b/packages/base/src/Numeric/Vectorized.hs | |||
@@ -19,7 +19,8 @@ module Numeric.Vectorized ( | |||
19 | FunCodeVV(..), vectorZipR, vectorZipC, vectorZipF, vectorZipQ, vectorZipI, | 19 | FunCodeVV(..), vectorZipR, vectorZipC, vectorZipF, vectorZipQ, vectorZipI, |
20 | vectorScan, saveMatrix, | 20 | vectorScan, saveMatrix, |
21 | Seed, RandDist(..), randomVector, | 21 | Seed, RandDist(..), randomVector, |
22 | sortVector, roundVector | 22 | sortVector, roundVector, |
23 | range | ||
23 | ) where | 24 | ) where |
24 | 25 | ||
25 | import Data.Packed.Internal.Common | 26 | import Data.Packed.Internal.Common |
@@ -389,3 +390,13 @@ roundVector v = unsafePerformIO $ do | |||
389 | 390 | ||
390 | foreign import ccall unsafe "round_vector" c_round_vector :: TVV | 391 | foreign import ccall unsafe "round_vector" c_round_vector :: TVV |
391 | 392 | ||
393 | -------------------------------------------------------------------------------- | ||
394 | |||
395 | range :: Int -> Idxs | ||
396 | range n = unsafePerformIO $ do | ||
397 | r <- createVector n | ||
398 | app1 c_range_vector vec r "range" | ||
399 | return r | ||
400 | |||
401 | foreign import ccall unsafe "range_vector" c_range_vector :: CV CInt (IO CInt) | ||
402 | |||