Sort a list of object identifiers: Difference between revisions

Content added Content deleted
m (indented the test cases.)
m (→‎{{header|REXX}}: elided a comment, ared parenthesis for clarity.)
Line 1,434: Line 1,434:
do k=1 for words(x); _= word(x, k) /*get a number in X. */
do k=1 for words(x); _= word(x, k) /*get a number in X. */
if LZ then y= y right(_, w, 0) /*(prepend) leading 0's*/
if LZ then y= y right(_, w, 0) /*(prepend) leading 0's*/
else y= y _ + 0 /* (elide) " " */
else y= y (_ + 0) /* (elide) " " */
end /*k*/ /*adjust number, append*/
end /*k*/
@.j = translate( space(y), ., ' ') /*reconstitute number. */
@.j = translate( space(y), ., ' ') /*reconstitute number. */
end /*j*/ /*LZ: Leading Zero(s).*/
end /*j*/ /*LZ: Leading Zero(s).*/
Retrieved from "https://rosettacode.org/wiki/Sort_a_list_of_object_identifiers"