Remove dependency on js_math.

Author: cristianoc

jscomp/others/belt_Array.res

@@ -64,10 +64,16 @@ let swapUnsafe = (xs, i, j) => {
   setUnsafe(xs, j, tmp)
 }
 
+
+@val @scope("Math") external random : unit => float = "random"
+@val @scope("Math") external floor : float => int = "floor"
+external toFloat: int => float = "%floatofint"
+
 let shuffleInPlace = xs => {
   let len = length(xs)
+  let random_int = (min, max) => floor(random() *. toFloat(max - min)) + min
   for i in 0 to len - 1 {
-    swapUnsafe(xs, i, Js_math.random_int(i, len)) /* [i,len) */
+    swapUnsafe(xs, i, random_int(i, len)) /* [i,len) */
   }
 }
 

lib/es6/belt_Array.js

@@ -2,7 +2,6 @@
 
 import * as Caml from "./caml.js";
 import * as Curry from "./curry.js";
-import * as Js_math from "./js_math.js";
 import * as Caml_option from "./caml_option.js";
 
 function get(arr, i) {
@@ -61,8 +60,11 @@ function swapUnsafe(xs, i, j) {
 
 function shuffleInPlace(xs) {
   let len = xs.length;
+  let random_int = function (min, max) {
+    return Math.floor(Math.random() * (max - min | 0)) + min | 0;
+  };
   for(let i = 0; i < len; ++i){
-    swapUnsafe(xs, i, Js_math.random_int(i, len));
+    swapUnsafe(xs, i, random_int(i, len));
   }
 }
 

lib/js/belt_Array.js

@@ -2,7 +2,6 @@
 
 let Caml = require("./caml.js");
 let Curry = require("./curry.js");
-let Js_math = require("./js_math.js");
 let Caml_option = require("./caml_option.js");
 
 function get(arr, i) {
@@ -61,8 +60,11 @@ function swapUnsafe(xs, i, j) {
 
 function shuffleInPlace(xs) {
   let len = xs.length;
+  let random_int = function (min, max) {
+    return Math.floor(Math.random() * (max - min | 0)) + min | 0;
+  };
   for(let i = 0; i < len; ++i){
-    swapUnsafe(xs, i, Js_math.random_int(i, len));
+    swapUnsafe(xs, i, random_int(i, len));
   }
 }