Sorting algorithms/Insertion sort: Difference between revisions
m
→{{header|PL/I}}: A little more in the PL/I spirit
PatGarrett (talk | contribs) m (→{{header|PL/I}}: A little more in the PL/I spirit) |
PatGarrett (talk | contribs) m (→{{header|PL/I}}: A little more in the PL/I spirit) |
||
Line 1,954:
<lang pli>
INSSORT: PROC(A);
DCL A(*)
DCL (I,
N = HBOUND(A,1); M = LBOUND(A,1);
DO I=M+1 TO N;
V=A(I);
DO J=I-1 BY -1 WHILE (J
A(J+1)=A(J);
END;
| |||