Added random_int to Core__Math

Author: adhi2714

src/Core__Math.mjs

@@ -5,8 +5,13 @@ var Constants = {};
 
 var Int = {};
 
+function random_int(min, max) {
+  return (Math.floor(Math.random() * (max - min | 0)) | 0) + min | 0;
+}
+
 export {
   Constants ,
   Int ,
+  random_int ,
 }
 /* No side effect */

src/Core__Math.res

@@ -57,3 +57,6 @@ module Int = {
 @val external tan: float => float = "Math.tan"
 @val external tanh: float => float = "Math.tanh"
 @val external trunc: float => float = "Math.trunc"
+
+let random_int: (int, int) => int = (min, max) =>
+  floor(random() *. Core__Int.toFloat(max - min))->Core__Float.toInt + min

src/Core__Math.resi

@@ -845,3 +845,5 @@ Math.trunc(42.84) // 42.0
 */
 @val
 external trunc: float => float = "Math.trunc"
+
+let random_int: (int, int) => int