TCL 从列表列表中匹配的每个列表中获取第 n 个项目

Question

如果嵌套列表符合条件，我正在寻找一种不错的简短方法来从列表列表中获取第 n 个项目。所以如果我有这个列表:

set x [list [list a 1] [list b 2] [list a 3] [list b 4]]

查找列表中第一项为“a”的所有第二项我想得到 {1 3}。(列表是一个键值对，所以简而言之我想要指定键的所有值)。

这样做的工作:

lsearch -all -index 1 -inline -subindices [lsearch -all -index 0 -inline $x a] *

但我正在寻找一种更简洁、更短的方法来做到这一点。

谢谢!

Answer 1

在 8.5 中，我建议坚持使用现有的版本。在 Tcl 8.6 中，您可以使用 lmap:

lmap i $x {lassign $i k v; if {$k ne "a"} continue; set v}

lmap i $x {if {[lindex $i 0] ne "a"} continue {lindex $i 1}}

我不确定你喜欢哪一个。 (第二个有点长，也有点棘手，但生成更好的字节码。带有 lsearch 的版本在任何版本中都没有字节码。)