Data commit

Task/Combinations/J/combinations-1.j

@@ -0,0 +1 @@
+require'stats'

Task/Combinations/J/combinations-2.j

@@ -0,0 +1,11 @@
+   3 comb 5
+0 1 2
+0 1 3
+0 1 4
+0 2 3
+0 2 4
+0 3 4
+1 2 3
+1 2 4
+1 3 4
+2 3 4

Task/Combinations/J/combinations-3.j

@@ -0,0 +1,5 @@
+comb1=: dyad define
+  c=. 1 {.~ - d=. 1+y-x
+  z=. i.1 0
+  for_j. (d-1+y)+/&i.d do. z=. (c#j) ,. z{~;(-c){.&.><i.{.c=. +/\.c end.
+)

Task/Combinations/J/combinations-4.j

@@ -0,0 +1,10 @@
+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
+)

Task/Combinations/J/combinations-5.j

@@ -0,0 +1,3 @@
+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.
+)

Task/Combinations/J/combinations-6.j

@@ -0,0 +1,7 @@
+ combr=: dyad define
+  if.(x=#y) +. x=1 do.
+    y
+  else.
+    (({.y) ,. (x-1) combr (}.y)) , (x combr }.y)
+  end.
+)

Task/Combinations/J/combinations-7.j

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