5 lines
125 B
Text
5 lines
125 B
Text
SortLexographically(n)
|
|
new array,i,j
|
|
for i=1:1:n set array(i_" ")=""
|
|
for set j=$order(array(j)) quit:j="" write j
|
|
quit
|