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