smilax:: Tcl : string backwards [Changes]   [Calendar]   [Search]   [Index]   [PhotoTags]   

[Bedstraw] *smilax*
 
[Mega-Changes]
[Mega-Calendar]

Tcl: string backwards

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]
(No back references.)