RosettaCodeData/Task/Permutations-by-swapping/J/permutations-by-swapping-5.j

6 lines
94 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
rsjt=: 3 :0
if. 2>y do. i.2#y
else. ((!y)$(,~|.)-.=i.y)#inv!.(y-1)"1 y#rsjt y-1
end.
)