12 lines
193 B
Text
12 lines
193 B
Text
proc sort . d[] .
|
|
for i = 1 to len d[] - 1
|
|
for j = i + 1 to len d[]
|
|
if d[j] < d[i]
|
|
swap d[j] d[i]
|
|
.
|
|
.
|
|
.
|
|
.
|
|
a[] = [ 2 4 3 1 2 ]
|
|
sort a[]
|
|
print a[]
|