From 198beba763f8bc0fd35b5b6ba36e42c5926ecc8c Mon Sep 17 00:00:00 2001 From: Alice Dee Date: Tue, 17 Sep 2019 12:37:06 +0100 Subject: Create Pair datatype (remove Tuple) --- gen/src/gleam@pair.erl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 gen/src/gleam@pair.erl (limited to 'gen/src/gleam@pair.erl') diff --git a/gen/src/gleam@pair.erl b/gen/src/gleam@pair.erl new file mode 100644 index 0000000..887adb9 --- /dev/null +++ b/gen/src/gleam@pair.erl @@ -0,0 +1,16 @@ +-module(gleam@pair). +-compile(no_auto_import). + +-export([first/1, second/1, swap/1]). + +first(Tup) -> + {A, _} = Tup, + A. + +second(Tup) -> + {_, A} = Tup, + A. + +swap(Tup) -> + {A, B} = Tup, + {B, A}. -- cgit v1.2.3