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

4 lines
102 B
Text
Raw Permalink Normal View History

2024-10-16 18:07:41 -07:00
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.
)