18 lines
338 B
Text
18 lines
338 B
Text
|
\C Publication syntax
|
||
|
|
permute (k) list (l):
|
||
|
|
if k == l.Count
|
||
|
|
print row l as tuple
|
||
|
|
return
|
||
|
|
for i = from k upto l.Count
|
||
|
|
row l swap i with k
|
||
|
|
permute k+1 list l
|
||
|
|
row l swap k with i
|
||
|
|
|
||
|
|
row (l) swap (i) with (k):
|
||
|
|
t = l[i]
|
||
|
|
l[i] = l[k]
|
||
|
|
l[k] = t
|
||
|
|
|
||
|
|
main (parms):+
|
||
|
|
permute 1 list [1, 2, 3] \ row literal, not tuple
|