every other
Posted to
tcl
by dandyn at Fri Sep 02 18:48:16 GMT 2022
view raw
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]
Recent Posts
tcl by oldlaptop
10 days ago
tcl by mookie
16 days ago
tcl by dandyn
23 days ago
tcl by Bradipo
23 days ago
tcl by Bradipo
23 days ago
tcl by oldlaptop
48 days ago
tcl by oldlaptop
48 days ago
tcl by mookie
53 days ago
tcl by mookie
53 days ago
tcl by georgtree
54 days ago
Submit
New paste
Documentation
From Jabber