Anonymous user
Sort stability: Difference between revisions
m
→{{header|REXX}}: added whitespace, split a compound statement.
m (added Category:Sorting) |
m (→{{header|REXX}}: added whitespace, split a compound statement.) |
||
Line 1,133:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
bubbleSort: procedure expose @.; parse arg n; m= n-1
/*──────────────────────────────────────────────────────────────────────────────────────*/
gen@: @.=; @.1 = 'UK London'
@.2 = 'US New York'
@.3 = 'US Birmingham'
@.4 = 'UK Birmingham'
do #=1 while @.#\==''
end /*#*/; #= # - 1; return /*adjust for the DO loop index; return*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
show: do j=1 for #; say ' element' right(j,length(#)) arg(1)":" @.j; end; return</lang>
<pre>
element 1 before sort: UK London
| |||