如何从Tcl列表中获取最后一个非零元素？

以下几种方法都不会改动原列表，完全满足你的需求：

方法1：反向遍历查找（高效） #

从列表末尾往前逐个检查，找到第一个非零元素立即返回，无需遍历整个列表，适合处理长列表：

proc last_non_zero {mylist} {
    set len [llength $mylist]
    for {set i [expr {$len - 1}]} {$i >= 0} {incr i -1} {
        set elem [lindex $mylist $i]
        if {$elem != 0} {
            return $elem
        }
    }
    return "" ;# 列表全为0时的返回值，可按需改为0或其他
}

调用示例：

set mylist {0 3 0 5 0 0}
puts [last_non_zero $mylist] ;# 输出5

方法2：利用lsearch筛选非零元素 #

通过lsearch提取所有非零元素到临时列表，再取该临时列表的最后一个元素，原列表不受影响：

set non_zero_elements [lsearch -all -inline -not $mylist 0]
set last_non_zero [lindex $non_zero_elements end]

方法3：Tcl 8.6+反向迭代foreach #

如果你的Tcl版本是8.6及以上，可用foreach的-reverse选项简化反向遍历逻辑：

proc last_non_zero {mylist} {
    foreach elem $mylist -reverse yes {
        if {$elem != 0} {
            return $elem
        }
    }
    return ""
}

内容的提问来源于stack exchange，提问作者Rahul