RosettaCodeData/Task/Permutations/K/permutations-3.k
2023-07-01 13:44:08 -04:00

9 lines
224 B
Text

prm:{$[0=x;,!0;,/(prm x-1){?[1+x;y;0]}/:\:!x]}
perm:{x[prm[#x]]}
(("some";"random";"text")
("random";"some";"text")
("random";"text";"some")
("some";"text";"random")
("text";"some";"random")
("text";"random";"some"))