feat(int): add range and rangeWithOptions

Author: glennsl

src/Core__Int.mjs

@@ -1,5 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Core__Array from "./Core__Array.mjs";
 
 function fromString(radix, x) {
   var maybeInt = radix !== undefined ? parseInt(x, radix) : parseInt(x);
@@ -10,6 +11,20 @@ function fromString(radix, x) {
   }
 }
 
+function rangeWithOptions(start, end, options) {
+  var n = options.step;
+  var step = n !== undefined ? n : 1;
+  var match = options.inclusive;
+  var end$1 = match !== undefined && match ? end + 1 | 0 : end;
+  return Core__Array.init(end$1 - start | 0, (function (i) {
+                return Math.imul(start, Math.imul(i, step));
+              }));
+}
+
+function range(start, end) {
+  return rangeWithOptions(start, end, {});
+}
+
 var Constants = {
   minValue: -2147483648,
   maxValue: 2147483647
@@ -18,5 +33,7 @@ var Constants = {
 export {
   Constants ,
   fromString ,
+  rangeWithOptions ,
+  range ,
 }
 /* No side effect */

src/Core__Int.res

@@ -35,3 +35,20 @@ let fromString = (~radix=?, x) => {
 }
 
 external mod: (int, int) => int = "%modint"
+
+type rangeOptions = {step?: int, inclusive?: bool}
+let rangeWithOptions = (start, end, options) => {
+  let step = switch options.step {
+  | None => 1
+  | Some(n) => n
+  }
+
+  let end = switch options.inclusive {
+  | Some(true) => end + 1
+  | _ => end
+  }
+
+  Core__Array.init(end - start, i => start * (i * step))
+}
+
+let range = (start, end) => rangeWithOptions(start, end, {})

src/Core__Int.resi

@@ -268,3 +268,7 @@ Int.mod(7, 4) == 3
 ```
 */
 external mod: (int, int) => int = "%modint"
+
+type rangeOptions = {step?: int, inclusive?: bool}
+let rangeWithOptions: (int, int, rangeOptions) => array<int>
+let range: (int, int) => array<int>