added floor_int to Core__Math

Author: adhi2714

src/Core__Math.mjs

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

src/Core__Math.res

@@ -58,5 +58,7 @@ module Int = {
 @val external tanh: float => float = "Math.tanh"
 @val external trunc: float => float = "Math.trunc"
 
+let floor_int: float => int = f => f->floor->Core__Float.toInt
+
 let random_int: (int, int) => int = (min, max) =>
-  floor(random() *. Core__Int.toFloat(max - min))->Core__Float.toInt + min
+  floor_int(random() *. Core__Int.toFloat(max - min)) + min

src/Core__Math.resi

@@ -846,4 +846,6 @@ Math.trunc(42.84) // 42.0
 @val
 external trunc: float => float = "Math.trunc"
 
+let floor_int: float => int
+
 let random_int: (int, int) => int