2020.04.16 (c) shakti
p1:{,/'@[;y,!y]\:x,,(#*x)#y}/(,0 1#0),!
p:{,/'((,(#*x)#y),x)a^@[&1,y#b;(b:y+2)*!a:y+1;0]}/(,0 1#0),!
\t:100 p 10
2314
\t:100 p 10
2101
\t:100 p 10
2134
\t:100 p1 10
2718
\t:100 p1 10
2614
a slightly faster but much longer permutations inspired by @dzaima, any golf interest on it?