RosettaCodeData/Task/Permutations/K/permutations-3.k

10 lines
224 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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"))