Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Combinations/Erlang/combinations-1.erl
+++ b/Task/Combinations/Erlang/combinations-1.erl
--- a/Task/Combinations/Erlang/combinations-2.erl
+++ b/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).