10 lines
244 B
Text
10 lines
244 B
Text
|
link sort # for isort
|
||
|
|
|
||
|
|
procedure main()
|
||
|
|
n := 13
|
||
|
|
every a := [] & put(a, n to 1 by -1)
|
||
|
|
writes("before sort:") ; every writes(" ",!a) ; write()
|
||
|
|
a := isort(a,string)
|
||
|
|
writes("after sort: ") ; every writes(" ",!a) ; write()
|
||
|
|
end
|