从TCL列表中提取每个第n个元素 [英] Extract every n-th element from TCL list

问题描述

我们可以通过foreach循环提取TCL列表的第n个元素.但是，是否有单行通用TCL cmd可以解决问题?像带有"-stride"选项的lindex之类的东西.

we can extract every n-th element of a TCL list by foreach loop. But is there a single line generic TCL cmd that will do the trick? Something like lindex with a '-stride' option.

推荐答案

如果您拥有lmap(以下链接中的Tcl 8.5版本)，则可以执行以下操作:

If you have lmap (Tcl 8.5 version in the links below) you can do this:

lmap [lrepeat $n a] $list {set a}

示例:

set list {a b c d e f g h i j k l}
set n 2
lmap [lrepeat $n a] $list {set a}
# => b d f h j l

但是您的评论似乎表明您确实想要第 n + 1 个值.在这种情况下:

But your comment seems to indicate that you really want the n+1 th value. In that case:

lmap [lreplace [lrepeat $n b] 0 0 a] $list {set a}
# => a c e g i k

文档: 列表， 对于lcl(对于Tcl 8.5)， lmap ， lrepeat 建立列表， 替换列表中的元素> lreplace ， 集合

Documentation: list, lmap (for Tcl 8.5), lmap, lrepeat, lreplace, set

这篇关于从TCL列表中提取每个第n个元素的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！