已能用foreach循环提取TCL列表隔n元素，是否有单行通用TCL命令？

嘿，这个问题问得好！TCL的标准库确实没有内置带-stride（步长）选项的lindex类命令，但我们可以用TCL的原生命令组合出简洁的单行方案，完全满足需求。

TCL 8.6+ 推荐单行写法（基于lseq） #

如果你用的是较新版本的TCL，这是最直观的实现方式。假设你有列表$myList，想要从索引0开始提取每隔$n个元素：

set everyNth [lindex $myList {*}[lseq 0 [expr {[llength $myList] - 1}] $n]]

原理很简单：

• lseq生成一个索引列表，从0开始，到$myList的最后一个索引结束，步长为$n
• {*}语法把这个索引列表展开成lindex的多个参数
• lindex会返回所有对应索引的元素，自动打包成新列表

如果需要从指定索引（比如从索引1）开始提取，只要修改lseq的起始值即可：

set everyNth [lindex $myList {*}[lseq 1 [expr {[llength $myList] - 1}] $n]]

TCL 8.5及更低版本兼容写法 #

如果你的环境是旧版TCL（没有lseq命令），可以用lmap实现兼容的单行方案：

set everyNth [lmap i [lrepeat [expr {int(ceil([llength $myList]/$n))}] 0] {incr i $n; lindex $myList [expr {$i - $n}]}]

这个写法通过生成占位符列表，遍历过程中计算出符合步长要求的索引，再提取对应元素。

小彩蛋：固定步长的极简写法 #

如果n是固定值（比如每隔3个元素），还可以用更简洁的lmap模式：

set every3rd [lmap {a b c} $myList {set a}]

它会把列表按每3个元素分组，只保留每组的第一个元素，可读性拉满。

以上所有方案都是单行实现，仅依赖TCL核心命令，无需任何外部工具。

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