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

11 lines
156 B
Text
Raw Permalink Normal View History

2020-02-17 23:21:07 -08:00
comb2=: dyad define
d =. 1 + y - x
k =. >: |. i. d
z =. < \. |. i. d
for. i.x-1 do.
z=. , each /\. k ,. each z
k =. 1 + k
end.
;{.z
2015-11-18 06:14:39 +00:00
)