Posted to tcl by dandyn at Fri Sep 02 18:48:16 GMT 2022view pretty
set x {cat horse dog}
proc lrot _l {
upvar 1 $_l l
set res [lindex $l 0]
set l [concat [lrange $l 1 end] $res]
return $res
}
puts [lrot x]
set x {cat horse dog}
proc lrot _l {
upvar 1 $_l l
set res [lindex $l 0]
set l [concat [lrange $l 1 end] $res]
return $res
}
puts [lrot x]