Data commit

Task/Compile-time-calculation/Tcl/compile-time-calculation-1.tcl

@@ -0,0 +1,8 @@
+proc makeFacExpr n {
+    set exp 1
+    for {set i 2} {$i <= $n} {incr i} {
+        append exp " * $i"
+    }
+    return "expr \{$exp\}"
+}
+eval [makeFacExpr 10]

Task/Compile-time-calculation/Tcl/compile-time-calculation-2.tcl

@@ -0,0 +1,9 @@
+% tcl::unsupported::disassemble script [makeFacExpr 10]
+ByteCode 0x0x4de10, refCt 1, epoch 3, interp 0x0x31c10 (epoch 3)
+  Source "expr {1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10}"
+  Cmds 1, src 45, inst 3, litObjs 1, aux 0, stkDepth 1, code/src 0.00
+  Commands 1:
+      1: pc 0-1, src 0-44
+  Command 1: "expr {1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10}"
+    (0) push1 0 	# "3628800"
+    (2) done