Question

我有一个排序的数字列表，我试图根据50的范围将该列表分成较小的列表，并在TCL中找到平均值。

例如：set xlist {1 2 3 4 5 ...50 51 52 ... 100 ... 101 102}

拆分列表：{1 ... 50} { 51 .. 100} {101 102}

结果：sum(1:50)/50; sum(51:100)/50; sum(101:102)/2

Answer 1

lrange命令是您这里需要的核心。结合for循环，可以为您带来所需的拆分。

proc splitByCount {list count} {
    set result {}
    for {set i 0} {$i < [llength $list]} {incr i $count} {
        lappend result [lrange $list $i [expr {$i + $count - 1}]]
    }
    return $result
}

交互式测试（使用较小的输入数据集）对我来说不错：

% splitByCount {a b c d e f g h i j k l} 5
{a b c d e} {f g h i j} {k l}

剩下的就是lmap和tcl::mathop::+（+表达式运算符的命令形式）的简单应用了。

set sums [lmap sublist [splitByCount $inputList 50] {
    expr {[tcl::mathop::+ {*}$sublist] / double([llength $sublist])}
}]

我们可以通过定义一个自定义函数来使其更加整洁：

proc tcl::mathfunc::average {list} {expr {
    [tcl::mathop::+ 0.0 {*}$list] / [llength $list]
}}

set sums [lmap sublist [splitByCount $inputList 50] {expr {
    average($sublist)
}}]

（在两种情况下，我已经将expr命令移到了上一行，因此我可以假装过程/ lmap的主体是表达式而不是脚本。）< / p>

根据TCL中的范围将数字列表分成较小的列表

1 个答案: