Data commit

Task/Combinations/Erlang/combinations-1.erl

@@ -0,0 +1,9 @@
+-module(comb).
+-compile(export_all).
+
+comb(0,_) ->
+    [[]];
+comb(_,[]) ->
+    [];
+comb(N,[H|T]) ->
+    [[H|L] || L <- comb(N-1,T)]++comb(N,T).

Task/Combinations/Erlang/combinations-2.erl

@@ -0,0 +1,13 @@
+-module(comb).
+-export([combinations/2]).
+
+combinations(K, List) ->
+    lists:last(all_combinations(K, List)).
+
+all_combinations(K, List) ->
+    lists:foldr(
+      fun(X, Next) ->
+              Sub = lists:sublist(Next, length(Next) - 1),
+              Step = [[]] ++ [[[X|S] || S <- L] || L <- Sub],
+              lists:zipwith(fun lists:append/2, Step, Next)
+      end, [[[]]] ++ lists:duplicate(K, []), List).