combination by yenzie

($n,$i)=split' ',<>;f($i);sub f{my($i,@a)=@_;print"@a\n"if!$i--;$n-$_<$i-1 or f($i,@a,$_)for$a[-1]+1..$n}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page