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

#Do we need any particular package for this?
#cant run this on any online compilers..

set gogo {one two}
 
proc RSS:Rotate _l {
        upvar 1 $_l l
        set res [lindex $l 0]
        set l [concat [lrange $l 1 end] $res]
        return $res
}

puts "[RSS:Rotate ::gogo]"