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