|
prm:{$[x~*x;;:x@o@#x];(x-1){,/'((,(#*x)##x),x)m*(!l)+&\m:~=l:1+#x}/0}
|
|
perm:{x[prm[#x]]}
|
|
|
|
perm[" "\"some random text"]
|
|
(("text";"text";"random";"some";"random";"some")
|
|
("random";"some";"text";"text";"some";"random")
|
|
("some";"random";"some";"random";"text";"text"))
|