tcl - Tclのリストのすべての要素に対して算術アクションを実行する方法

Question

値のリストが非常に長いので、それらをすべて同じ数で除算したいのですが、メンバーごとにこれを行う代わりに、1つのコマンドでこれを行う方法はありますか？

set new_list [list ]
foreach member $list {
    lappend new_list [expr $member / 1E9]
}

Answer 1

いいえ。そして常にあなたの表現を引き締めます。

proc map {lst expr} {
    foreach item $lst { lappend r [expr [string map {%x $item} $expr]] }
    return $r
}

map [list 2.3 4.5 6.7] {%x * %x + 0.5}
map [list ...] {%x / 1e9}

必要に応じて解決策になるかもしれませんが、そのための組み込み機能はありません。

Answer 2

Tcllib の::struct::listパッケージにはマッピング関数があります。

package require struct::list
set lst {1 2 3 4 5}
set new [::struct::list mapfor x $lst {expr {$x * $x}}]
# => 1 4 9 16 25