Anonymous user
Sorting algorithms/Shell sort: Difference between revisions
m
→{{header|REXX}}: changed a variable name, changed DO-end comments.
m (→{{header|REXX}}: added whitespace, changed some comments.) |
m (→{{header|REXX}}: changed a variable name, changed DO-end comments.) |
||
Line 2,789:
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
shellSort: procedure expose @.; parse arg
i=
do while i\==0
do j=i+1 to
_= @.j
do while k>=i+1 & @.p>_; @.k= @.p; k= k-i; p= k-i
end /*while
@.k= _
end /*j*/
if i==2 then i= 1
else i= i * 5 % 11
end
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
|