Permutations: Difference between revisions
→{{header|K}}
m (adding sas) |
|||
Line 1,323:
perm([1, 2, 'A', 4], []);
</script></body></html></lang>
=={{header|K}}==
{{trans|J}}
<lang K> 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</lang>
=={{header|Logtalk}}==
<lang logtalk>:- object(list).
|