Posted to tcl by Bradipo at Tue Jul 28 20:36:00 GMT 2015view raw

  1. proc make_f n {
  2. set x 0
  3. proc f_$n i "
  4. upvar x y
  5. expr {\[incr y] * $n * \$i}
  6. "
  7. return f_$n
  8. }
  9.  

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]