Sorting algorithms/Gnome sort: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
m (→{{header|REXX}}: shortened the REXX program.) |
||
Line 2,491:
_= @.p; @.p= @.k; @.k= _ /*swap two @ entries. */
k= k-1; if k==1 then k=j; else j= j-1 /*test for 1st index. */
end /*j*/ return
/*──────────────────────────────────────────────────────────────────────────────────────*/
show: do j=1 for #; say ' element' right(j, w) arg(1)":" @.j; end; return</lang>
|