Permutations: Difference between revisions
Content added Content deleted
Line 573: | Line 573: | ||
DoPermutations(aList, n - 1) |
DoPermutations(aList, n - 1) |
||
if n mod 2 = 0 then -- n is even |
if n mod 2 = 0 then -- n is even |
||
tell aList to set [item i, item n] to [item n, item i] -- swap |
tell aList to set [item i, item n] to [item n, item i] -- swap items i and n of aList |
||
else |
else |
||
tell aList to set [item 1, item n] to [item n, item 1] -- swap |
tell aList to set [item 1, item n] to [item n, item 1] -- swap items 1 and n of aList |
||
end if |
end if |
||
set i to i + 1 |
set i to i + 1 |