5 lines
131 B
Text
5 lines
131 B
Text
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.
|
|
)
|