/ combinations c:{(,!0){,/(|!#y),''y#\:1+x}/x+\\(y-x-:1)#1} f:{:[1=y;,y;1+c[x]y]} (3 4 2 4 2 3 1 4 1 3 1 2)~f[2]4 (,1)~f[1]1