Posted to tcl by Bradipo at Tue Jul 28 20:36:00 GMT 2015view pretty
proc make_f n {
set x 0
proc f_$n i "
upvar x y
expr {\[incr y] * $n * \$i}
"
return f_$n
}
proc make_f n {
set x 0
proc f_$n i "
upvar x y
expr {\[incr y] * $n * \$i}
"
return f_$n
}
Comments
Posted by kak at Tue Jul 28 20:48:31 GMT 2015 [text] [code]
proc gensym {} { variable i return \#g[incr i] } proc makeTimes {a} { set p [gensym] proc $p [list b [list a $a]] {expr {$a * $b}} return $p } set double [makeTimes 2] puts [$double 3]