stdlib namespace std -> gleam

1 files changed, 28 insertions, 0 deletions

diff --git a/gen/src/gleam@tuple.erl b/gen/src/gleam@tuple.erl
new file mode 100644
index 0000000..1e236bf
--- /dev/null
+++ b/gen/src/gleam@tuple.erl
@@ -0,0 +1,28 @@
+-module(gleam@tuple).
+-compile(no_auto_import).
+
+-export([new/2, first/1, second/1, swap/1, fetch/2]).
+
+new(A, B) ->
+    {A, B}.
+
+first(Tup) ->
+    {A, _} = Tup,
+    A.
+
+second(Tup) ->
+    {_, A} = Tup,
+    A.
+
+swap(Tup) ->
+    {A, B} = Tup,
+    {B, A}.
+
+fetch(Haystack, Needle) ->
+    gleam@list:find(Haystack, fun(Tuple) -> case first(Tuple) =:= Needle of
+                            true ->
+                                {ok, second(Tuple)};
+
+                            false ->
+                                {error, []}
+                        end end).