erlang day 2

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].