11 lines
182 B
Tcl
11 lines
182 B
Tcl
|
proc reverse {str} {
|
||
|
|
set rev {}
|
||
|
|
set i [string length $str]
|
||
|
|
|
||
|
|
while {$i > 0} {
|
||
|
|
incr i -1
|
||
|
|
append rev [string index $str $i]
|
||
|
|
}
|
||
|
|
return [join $rev ""]
|
||
|
|
}
|