From 5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e Mon Sep 17 00:00:00 2001
From: Trygve Laugstøl <trygvis@inamo.no>
Date: Fri, 23 Feb 2024 07:08:18 +0100
Subject: wip

---
 learn-you-some-erlang/discrep3.erl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 learn-you-some-erlang/discrep3.erl

(limited to 'learn-you-some-erlang/discrep3.erl')

diff --git a/learn-you-some-erlang/discrep3.erl b/learn-you-some-erlang/discrep3.erl
new file mode 100644
index 0000000..aaec5d6
--- /dev/null
+++ b/learn-you-some-erlang/discrep3.erl
@@ -0,0 +1,14 @@
+-module(discrep3).
+-export([run/0]).
+
+run() ->
+    Tup = money(5, you),
+    some_op(item(count, Tup), item(account, Tup)).
+
+money(Num, Name) -> {give, Num, Name}.
+
+item(count, {give, X, _}) -> X;
+item(account, {give, _, X}) -> X.
+
+some_op(A, B) -> A + B.
+
-- 
cgit v1.2.3