($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