feat(array): add make

Author: glennsl

src/Core__Array.mjs

@@ -5,6 +5,17 @@ import * as Js_math from "rescript/lib/es6/js_math.js";
 import * as Caml_option from "rescript/lib/es6/caml_option.js";
 import * as Caml_splice_call from "rescript/lib/es6/caml_splice_call.js";
 
+function make(len, x) {
+  if (len <= 0) {
+    return [];
+  }
+  var arr = new Array(len);
+  for(var i = 0; i < len; ++i){
+    arr[i] = x;
+  }
+  return arr;
+}
+
 function init(len, f) {
   if (len <= 0) {
     return [];
@@ -134,6 +145,7 @@ function findMap(arr, f) {
 }
 
 export {
+  make ,
   init ,
   indexOfOpt ,
   lastIndexOfOpt ,

src/Core__Array.res

@@ -13,6 +13,17 @@ external fromArrayLikeWithMap: (Js.Array2.array_like<'a>, 'a => 'b) => array<'a>
 @val external fromIterator: Core__Iterator.t<'a> => array<'a> = "Array.from"
 @val external fromIteratorWithMap: (Core__Iterator.t<'a>, 'a => 'c) => array<'a> = "Array.from"
 
+let make = (len, x) =>
+  if len <= 0 {
+    []
+  } else {
+    let arr = makeUninitializedUnsafe(len)
+    for i in 0 to len - 1 {
+      arr->setUnsafe(i, x)
+    }
+    arr
+  }
+
 let init = (len, f) =>
   if len <= 0 {
     []

src/Core__Array.resi

@@ -5,6 +5,7 @@
 external fromArrayLikeWithMap: (Js.Array2.array_like<'a>, 'a => 'b) => array<'a> = "Array.from"
 @val external fromIterator: Core__Iterator.t<'a> => array<'a> = "Array.from"
 @val external fromIteratorWithMap: (Core__Iterator.t<'a>, 'a => 'c) => array<'a> = "Array.from"
+let make: (int, 'a) => array<'a>
 let init: (int, int => 'a) => array<'a>
 @val external isArray: 'a => bool = "Array.isArray"
 @get external length: array<'a> => int = "length"