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 (
     FunCodeVV(..), vectorZipR, vectorZipC, vectorZipF, vectorZipQ, vectorZipI,
     vectorScan, saveMatrix,
     Seed, RandDist(..), randomVector,
-    sortVector, roundVector
+    sortVector, roundVector,
+    range
 ) where
 
 import Data.Packed.Internal.Common
@@ -389,3 +390,13 @@ roundVector v = unsafePerformIO $ do
 
 foreign import ccall unsafe "round_vector" c_round_vector :: TVV
 
+--------------------------------------------------------------------------------
+
+range :: Int -> Idxs
+range n = unsafePerformIO $ do
+    r <- createVector n
+    app1 c_range_vector vec r "range"
+    return r
+
+foreign import ccall unsafe "range_vector" c_range_vector :: CV CInt (IO CInt)
+