5 lines
79 B
Tcl
5 lines
79 B
Tcl
|
set r [lreverse $arr]
|
||
|
|
set s [lsort -integer $r]
|
||
|
|
puts stdout $r
|
||
|
|
puts stdout $s
|