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 bch
4 days ago
tcl by Bradipo
4 days ago
tcl by aspect
4 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
lilypond by Bradipo
6 days ago
tcl by cgm
16 days ago
tcl by dandyn
25 days ago
tcl by Stu
26 days ago
Submit
New paste
Documentation
From Jabber