Another update from ingydotnet^djgoku

Task/Runtime-evaluation-In-an-environment/Clojure/runtime-evaluation-in-an-environment-1.clj

@@ -0,0 +1,5 @@
+(def ^:dynamic x nil)
+
+(defn eval-with-x [program a b]
+  (- (binding [x b] (eval program))
+     (binding [x a] (eval program))))

Task/Runtime-evaluation-In-an-environment/Clojure/runtime-evaluation-in-an-environment-2.clj

@@ -0,0 +1,2 @@
+(eval-with-x '(* x x) 4 9)
+=> 65

Task/Runtime-evaluation-In-an-environment/Tcl/runtime-evaluation-in-an-environment-3.tcl

@@ -0,0 +1,7 @@
+package require Tcl 8.5
+proc eval_with {body a b} {
+    set lambda [list x $body]
+    expr {[apply $lambda $b] - [apply $lambda $a]}
+}
+
+eval_with {expr {2**$x}} 3 5  ;# ==> 24