set mylist {a b c}
# 按索引删除元素c
set mylist [lreplace $mylist 2 2]
# 按值除去元素b
set idx [lsearch $mylist "b"]
set mylist [lreplace $mylist $idx $idx]
set mylist {a b c}
# 按索引删除元素c
set mylist [lreplace $mylist 2 2]
# 按值除去元素b
set idx [lsearch $mylist "b"]
set mylist [lreplace $mylist $idx $idx]