Evaluated proc sr {s} {set r {}; set i [string len $s]; while {$i > 0} {append r [string index $s [incr i -1]]}; . $r}
This commit is contained in:
committed by
dupa dup

parent
30c7898fdc
commit
166f22d6d2
1
procs/44b7497c4bb5f3e8c071b12b7ece82766a88068d
Normal file
1
procs/44b7497c4bb5f3e8c071b12b7ece82766a88068d
Normal file
@ -0,0 +1 @@
|
||||
s {set r {}; set i [string len $s]; while {$i > 0} {append r [string index $s [incr i -1]]}; . $r}
|
Reference in New Issue
Block a user