Array replicate

Author: garyb

src/Data/Array.js

@@ -16,6 +16,17 @@ exports.range = function (start) {
   };
 };
 
+exports.replicate = function (count) {
+  return function (value) {
+    var result = [];
+    var n = 0;
+    for (var i = 0; i < count; i++) {
+      result[n++] = value;
+    }
+    return result;
+  };
+};
+
 exports.fromFoldableImpl = (function () {
   // jshint maxparams: 2
   function Cons(head, tail) {

src/Data/Array.purs

@@ -32,6 +32,7 @@ module Data.Array
   , toUnfoldable
   , singleton
   , (..), range
+  , replicate
   , some
   , many
 
@@ -141,6 +142,9 @@ singleton a = [a]
 -- | Create an array containing a range of integers, including both endpoints.
 foreign import range :: Int -> Int -> Array Int
 
+-- | Create an array containing a value repeated the specified number of times.
+foreign import replicate :: forall a. Int -> a -> Array a
+
 -- | An infix synonym for `range`.
 infix 8 range as ..