smilax:: Tcl : string backwards | [Changes] [Calendar] [Search] [Index] [PhotoTags] |
[Bedstraw] *smilax* |
proc backwards s { set z "" set i [string length $s] while {[incr i -1] > -1} { append z [string index $s $i] } return $z } while {[gets stdin b]>=0} { puts [backwards $b] }
was used to reverse the Hint on The Cyrillic Virgil Sculpture .
(last modified 2005-05-05) [Login] |