12 lines
233 B
Text
12 lines
233 B
Text
perm:{:[1<x;,/(>:'(x,x)#1,x#0)[;0,'1+_f x-1];,!x]}
|
|
perm 2
|
|
(0 1
|
|
1 0)
|
|
|
|
`0:{1_,/" ",/:x}'r@perm@#r:("some";"random";"text")
|
|
some random text
|
|
some text random
|
|
random some text
|
|
random text some
|
|
text some random
|
|
text random some
|