Posted to tcl by dandyn at Sat Mar 30 11:18:51 GMT 2024view raw

  1.  
  2. #Do we need any particular package for this?
  3. #cant run this on any online compilers..
  4.  
  5. set gogo {one two}
  6.  
  7. proc RSS:Rotate _l {
  8. upvar 1 $_l l
  9. set res [lindex $l 0]
  10. set l [concat [lrange $l 1 end] $res]
  11. return $res
  12. }
  13.  
  14. puts "[RSS:Rotate ::gogo]"