added from_base_string to int module

2 files changed, 26 insertions, 0 deletions

diff --git a/src/gleam/int.gleam b/src/gleam/int.gleam
index d806fe1..785e8c0 100644
--- a/src/gleam/int.gleam
+++ b/src/gleam/int.gleam
@@ -183,6 +183,23 @@ if javascript {
     "../gleam_stdlib.mjs" "int_to_base_string"
 }
 
+pub fn from_base_string(string: String, base: Int) -> Result(Int, Nil) {
+  case base >= 2 && base <= 36 {
+    True -> do_from_base_string(string, base)
+    False -> Error(Nil)
+  }
+}
+
+if erlang {
+  external fn do_from_base_string(String, Int) -> Result(Int, Nil) =
+    "erlang" "binary_to_integer"
+}
+
+if javascript {
+  external fn do_from_base_string(Int, Int) -> Result(Int, Nil) =
+    "../gleam_stdlib.mjs" "int_from_base_string"
+}
+
 /// Prints a given int to a string using base2.
 ///
 /// ## Examples
diff --git a/src/gleam_stdlib.mjs b/src/gleam_stdlib.mjs
index cde1052..2fafcd9 100644
--- a/src/gleam_stdlib.mjs
+++ b/src/gleam_stdlib.mjs
@@ -57,6 +57,15 @@ export function int_to_base_string(int, base) {
   return int.toString(base).toUpperCase();
 }
 
+export function int_from_base_string(string, base) {
+  const result = parseInt(string, base)
+  if (isNaN(result)) {
+    return new Error(Nil)
+  } else {
+    return new Ok(result)
+  }
+}
+
 export function string_replace(string, target, substitute) {
   if (typeof string.replaceAll !== "undefined") {
     return string.replaceAll(target, substitute);