Sorting algorithms/Gnome sort: Difference between revisions
→version 2: corrected in sync with REXX version 2
Walterpachl (talk | contribs) (→version 2: corrected program and output) |
Walterpachl (talk | contribs) (→version 2: corrected in sync with REXX version 2) |
||
Line 1,304:
<lang oorexx>/* REXX ---------------------------------------------------------------
* 28.06.2014 Walter Pachl
* 30.06.2014 corrected in sync with REXX version 2
*--------------------------------------------------------------------*/
Call gen /* generate the array elements. */
Line 1,324 ⟶ 1,325:
If k==1 Then
k=j
Else
j=j-1
End
End
| |||