diff options
Diffstat (limited to 'learn-you-some-erlang/discrep2.erl')
-rw-r--r-- | learn-you-some-erlang/discrep2.erl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/learn-you-some-erlang/discrep2.erl b/learn-you-some-erlang/discrep2.erl new file mode 100644 index 0000000..7462e5f --- /dev/null +++ b/learn-you-some-erlang/discrep2.erl @@ -0,0 +1,12 @@ +-module(discrep2). +-export([run/0]). + +run() -> + Tup = money(5, you), + some_op(count(Tup), account(Tup)). + +money(Num, Name) -> {give, Num, Name}. +count({give, Num, _}) -> Num. +account({give, _, X}) -> X. + +some_op(A, B) -> A + B. |