9 lines
244 B
Text
9 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
|