From 2cbe6bd721ae2be68c29e4de71db51bafc3478f8 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Mon, 18 Mar 2019 01:12:09 +0000
Subject: tuple module, decode lists

---
 src/tuple.gleam | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 src/tuple.gleam

(limited to 'src/tuple.gleam')

diff --git a/src/tuple.gleam b/src/tuple.gleam
new file mode 100644
index 0000000..d437a9f
--- /dev/null
+++ b/src/tuple.gleam
@@ -0,0 +1,23 @@
+import expect
+
+pub fn first(tup) {
+  let {a, _} = tup
+  a
+}
+
+test first {
+  {1, 2}
+  |> first
+  |> expect:equal(_, 1)
+}
+
+pub fn second(tup) {
+  let {_, a} = tup
+  a
+}
+
+test second {
+  {1, 2}
+  |> second
+  |> expect:equal(_, 2)
+}
-- 
cgit v1.2.3