Rosetta Code

Runtime evaluation/In an environment: Difference between revisions

Page Discussion

Runtime evaluation/In an environment (view source)

Revision as of 10:39, 30 April 2009

94 bytes removed ,  15 years ago
→‎{{header|Tcl}}: this imitates other examples (right?)
(revert Tcl: insofar as I understand the Tcl, the old version was closer to correct, and I understand the change was an attempt to comply with my task req changes)
(→‎{{header|Tcl}}: this imitates other examples (right?))
Line 175:
 
=={{header|Tcl}}==
 
{{incorrect|Tcl|The code provided should not itself be a function, but have x as a free variable.}}
 
<lang tcl>package require Tcl 8.5
 
proc eval_twice {func a b} {
set 1st [apply $funcx $a]
set 2nd1st [applyexpr $func $b];
set x $b
set 2nd [expr $func];
expr {$2nd - $1st}
}
 
puts [eval_twice {x {expr {2 ** $x}}} 3 5 ];# ==> 24</lang>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/99706"