aboutsummaryrefslogtreecommitdiff
path: root/gen/src/tuple.erl
diff options
context:
space:
mode:
Diffstat (limited to 'gen/src/tuple.erl')
-rw-r--r--gen/src/tuple.erl28
1 files changed, 0 insertions, 28 deletions
diff --git a/gen/src/tuple.erl b/gen/src/tuple.erl
deleted file mode 100644
index fe3ce03..0000000
--- a/gen/src/tuple.erl
+++ /dev/null
@@ -1,28 +0,0 @@
--module(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) ->
- list:find(Haystack, fun(Tuple) -> case first(Tuple) =:= Needle of
- true ->
- {ok, second(Tuple)};
-
- false ->
- {error, []}
- end end).