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