Data update
This commit is contained in:
parent
29a5eea0d4
commit
5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
|
|
@ -0,0 +1,25 @@
|
|||
proc sort . d[] .
|
||||
a = 1
|
||||
b = len d[] - 1
|
||||
while a <= b
|
||||
h = a
|
||||
for i = a to b
|
||||
if d[i] > d[i + 1]
|
||||
swap d[i] d[i + 1]
|
||||
h = i
|
||||
.
|
||||
.
|
||||
b = h - 1
|
||||
h = b
|
||||
for i = b downto a
|
||||
if d[i] > d[i + 1]
|
||||
swap d[i] d[i + 1]
|
||||
h = i
|
||||
.
|
||||
.
|
||||
a = h + 1
|
||||
.
|
||||
.
|
||||
l[] = [ 5 6 1 2 9 14 2 15 6 7 8 97 ]
|
||||
sort l[]
|
||||
print l[]
|
||||
Loading…
Add table
Add a link
Reference in a new issue