proc fun arg { return [expr $arg*2] } set sum [apply {{sum x } { foreach z $x { set sum [expr [fun $z] + $sum] } ; return $sum }} {0} { 2 5 } ] puts $sum
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more