Anonymous user
Sort stability: Difference between revisions
m
→{{header|REXX}}: added whitespace.
m (→{{header|REXX}}: added an EXIT code.) |
m (→{{header|REXX}}: added whitespace.) |
||
Line 1,499:
call bubbleSort # /*invoke the bubble sort. */
call show ' after sort' /*show the after array elements. */
exit 0
/*──────────────────────────────────────────────────────────────────────────────────────*/
bubbleSort: procedure expose @.; parse arg n; m= n-1 /*N: number of array elements. */
do m=m for m by -1 until ok; ok= 1 /*keep sorting array until done.*/
do j=1 for m; k= j+1; if @.j<=@.k then iterate
_= @.j; @.j= @.k; @.k=
end /*j*/
end /*m*/; return
| |||