Improve performance of glearray.get() on Erlang

Author: gertvv

src/glearray.gleam

@@ -86,14 +86,14 @@ pub fn length(of array: Array(a)) -> Int
 /// Error(Nil)
 /// ```
 ///
+@external(erlang, "glearray_ffi", "get")
 pub fn get(in array: Array(a), at index: Int) -> Result(a, Nil) {
   case is_valid_index(array, index) {
     True -> Ok(do_get(array, index))
     False -> Error(Nil)
   }
 }
 
-@external(erlang, "glearray_ffi", "get")
 @external(javascript, "./glearray_ffi.mjs", "get")
 fn do_get(array: Array(a), index: Int) -> a
 

src/glearray_ffi.erl

@@ -4,7 +4,11 @@
 
 new() -> {}.
 
-get(Array, Index) -> element(Index + 1, Array).
+get(Array, Index) ->
+  case catch element(Index + 1, Array) of
+    {'EXIT', _} -> {error,nil};
+    E -> {ok,E}
+  end.
 
 set(Array, Index, Value) -> setelement(Index + 1, Array, Value).