18 lines
338 B
Plaintext
18 lines
338 B
Plaintext
\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
|