Optimize compare and equal functions

Author: fhammerschmidt

src/Core__Float.mjs

@@ -3,20 +3,6 @@
 
 var Constants = {};
 
-function equal(a, b) {
-  return a === b;
-}
-
-function compare(a, b) {
-  if (a < b) {
-    return -1;
-  } else if (a > b) {
-    return 1;
-  } else {
-    return 0;
-  }
-}
-
 function fromString(i) {
   var i$1 = parseFloat(i);
   if (isNaN(i$1)) {
@@ -37,8 +23,6 @@ function clamp(min, max, value) {
 
 export {
   Constants ,
-  equal ,
-  compare ,
   fromString ,
   clamp ,
 }

src/Core__Float.res

@@ -7,10 +7,9 @@ module Constants = {
   @val external maxValue: float = "Number.MAX_VALUE"
 }
 
-let equal = (a: float, b: float) => a === b
+external equal: (float, float) => bool = "%equal"
 
-let compare = (a: float, b: float) =>
-  a < b ? Core__Ordering.less : a > b ? Core__Ordering.greater : Core__Ordering.equal
+external compare: (float, float) => Core__Ordering.t = "%compare"
 
 @val external isNaN: float => bool = "isNaN"
 @val external isFinite: float => bool = "isFinite"

src/Core__Float.resi

@@ -109,9 +109,9 @@ module Constants: {
   external maxValue: float = "Number.MAX_VALUE"
 }
 
-let equal: (float, float) => bool
+external equal: (float, float) => bool = "%equal"
 
-let compare: (float, float) => Core__Ordering.t
+external compare: (float, float) => Core__Ordering.t = "%compare"
 
 /**
 `isNaN(v)` tests if the given `v` is `NaN`.

src/Core__Int.mjs

@@ -2,20 +2,6 @@
 
 import * as Core__Array from "./Core__Array.mjs";
 
-function equal(a, b) {
-  return a === b;
-}
-
-function compare(a, b) {
-  if (a < b) {
-    return -1;
-  } else if (a > b) {
-    return 1;
-  } else {
-    return 0;
-  }
-}
-
 function fromString(x, radix) {
   var maybeInt = radix !== undefined ? parseInt(x, radix) : parseInt(x);
   if (isNaN(maybeInt) || maybeInt > 2147483647 || maybeInt < -2147483648) {
@@ -85,8 +71,6 @@ var Constants = {
 
 export {
   Constants ,
-  equal ,
-  compare ,
   fromString ,
   range ,
   rangeWithOptions ,

src/Core__Int.res

@@ -3,10 +3,9 @@ module Constants = {
   @inline let maxValue = 2147483647
 }
 
-let equal = (a: int, b: int) => a === b
+external equal: (int, int) => bool = "%equal"
 
-let compare = (a: int, b: int) =>
-  a < b ? Core__Ordering.less : a > b ? Core__Ordering.greater : Core__Ordering.equal
+external compare: (int, int) => Core__Ordering.t = "%compare"
 
 @send external toExponential: (int, ~digits: int=?) => string = "toExponential"
 @deprecated("Use `toExponential` instead") @send

src/Core__Int.resi

@@ -56,9 +56,9 @@ module Constants: {
   let maxValue: int
 }
 
-let equal: (int, int) => bool
+external equal: (int, int) => bool = "%equal"
 
-let compare: (int, int) => Core__Ordering.t
+external compare: (int, int) => Core__Ordering.t = "%compare"
 
 /**
 `toExponential(n, ~digits=?)` return a `string` representing the given value in

src/Core__String.mjs

@@ -1,20 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 
-function equal(a, b) {
-  return a === b;
-}
-
-function compare(a, b) {
-  if (a < b) {
-    return -1;
-  } else if (a > b) {
-    return 1;
-  } else {
-    return 0;
-  }
-}
-
 function indexOfOpt(s, search) {
   var index = s.indexOf(search);
   if (index !== -1) {
@@ -40,8 +26,6 @@ function searchOpt(s, re) {
 }
 
 export {
-  equal ,
-  compare ,
   indexOfOpt ,
   lastIndexOfOpt ,
   searchOpt ,

src/Core__String.res

@@ -6,10 +6,9 @@
 @val external fromCodePoint: int => string = "String.fromCodePoint"
 @variadic @val external fromCodePointMany: array<int> => string = "String.fromCodePoint"
 
-let equal = (a: string, b: string) => a === b
+external equal: (string, string) => bool = "%equal"
 
-let compare = (a: string, b: string) =>
-  a < b ? Core__Ordering.less : a > b ? Core__Ordering.greater : Core__Ordering.equal
+external compare: (string, string) => Core__Ordering.t = "%compare"
 
 @get external length: string => int = "length"
 @get_index external get: (string, int) => option<string> = ""

src/Core__String.resi

@@ -118,9 +118,9 @@ String.fromCodePointMany([0xd55c, 0xae00, 0x1f63a]) == `한글😺`
 @val
 external fromCodePointMany: array<int> => string = "String.fromCodePoint"
 
-let equal: (string, string) => bool
+external equal: (string, string) => bool = "%equal"
 
-let compare: (string, string) => Core__Ordering.t
+external compare: (string, string) => Core__Ordering.t = "%compare"
 
 /**
 `length(str)` returns the length of the given `string`.