Question

How to remove every even index elemnt form a list in tcl? I used

    for {set i 0} {$i <[llength $a]} {incr i} {
    if {[expr $i % 2] == 0} {
     lreplace $a [lindex $a $i] [lindex $a $i] 
    }

but how to update the variable using lreplace whenever i delete an element

Answer 1

using your technique you need to change incr command:

% set a {a b c e f g h}
a b c e f g h
% for {set i 1} { $i < [llength $a] } {incr i 2} {lappend c [lindex $a $i]}
% puts $c
b e g
%