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