Anonymous user
Sorting algorithms/Gnome sort: Difference between revisions
m
→version 1: added whitespace.
m (→version 1: added whitespace.) |
|||
Line 2,939:
if @.p<<=@.k then do; k= j; iterate; end /*order is OK so far. */
_= @.p; @.p= @.k; @.k= _ /*swap two @ entries. */
k= k - 1;
end /*j*/; return
/*──────────────────────────────────────────────────────────────────────────────────────*/
show: do j=1 for #; say ' element' right(j, w) arg(1)":" @.j; end; return</lang>
|