RosettaCodeData/Task/Combinations/K/combinations.k

5 lines
72 B
Plaintext

comb:{[n;k]
f:{:[k=#x; :,x; :,/_f' x,'(1+*|x) _ !n]}
:,/f' !n
}