RosettaCodeData/Task/Combinations/J/combinations-6.j
2024-10-16 18:07:41 -07: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.
)