R, 110 bytes
function(v,s,r=v,`+`=length){combn(+v,+s,function(y,x=sort(y),a=v[x:x[+x]]){if(all(v[x]==s)&+r>+a)r<<-a;0});r}
Explanation in progress...
digEmAll
- 5.1k
- 15
- 22
Stack Exchange network consists of 183 Q&A communities including Stack Overflow, the largest, most trusted online community for developers to learn, share their knowledge, and build their careers.
Visit Stack Exchange