8 lines
266 B
Text
8 lines
266 B
Text
|
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"))
|