RosettaCodeData/Task/Combinations/J/combinations-5.j
2020-02-17 23:21:07 -08:00

3 lines
102 B
Text

combr=: dyad define M.
if. (x>:y)+.0=x do. i.(x<:y),x else. (0,.x combr&.<: y),1+x combr y-1 end.
)