From 4098189e4dc114aa39cb97f024254da9ea157e5a Mon Sep 17 00:00:00 2001
From: Max Hohlfeld <maxhohlfeld@it-factum.de>
Date: Mon, 14 Aug 2023 14:34:24 +0200
Subject: [PATCH] erlang day 2

---
 erlang/day2.erl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 erlang/day2.erl

diff --git a/erlang/day2.erl b/erlang/day2.erl
new file mode 100644
index 0000000..07b6cd9
--- /dev/null
+++ b/erlang/day2.erl
@@ -0,0 +1,16 @@
+-module(day2).
+-export([get_key/2]).
+-export([calc_total/1]).
+
+% day2:get_key(test, [{test, "abc"}, {hage, "buddne"}]).
+% get_key(Key, Array) -> [V || {K, V} <- Array, K == Key].
+get_key(_, []) -> notfound;
+get_key(Key, [{K, V} | T]) -> 
+	if K == Key -> 
+		V;
+	true ->
+		get_key(Key, T)
+	end.
+
+% day2:calc_total([{"Bohnen", 4, 0.20}, {"Erbsen", 3, 0.15}, {"Linsen", 7, 0.30}]).
+calc_total(Array) -> [{Item, Quantity * Price} || {Item, Quantity, Price} <- Array].