RosettaCodeData/Task/Combinations/J/combinations-7.j

2 lines
50 B
Plaintext

combb=: (#~ ((-:/:~)>/:~-:\:~)"1)@(# #: [: i. ^~)