diff options
Diffstat (limited to 'gen/src/tuple.erl')
-rw-r--r-- | gen/src/tuple.erl | 28 |
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). |