Data commit

Task/Introspection/Tcl/introspection-1.tcl

@@ -0,0 +1,4 @@
+package require Tcl 8.4 ; # throws an error if older
+if {[info exists bloop] && [llength [info functions abs]]} {
+    puts [expr abs($bloop)]
+}

Task/Introspection/Tcl/introspection-2.tcl

@@ -0,0 +1,14 @@
+namespace eval ::extra_credit {
+    variable sum_global_int 0
+    variable n_global_int 0
+    foreach var [info vars ::*] {
+        if {[array exists $var]} continue
+        if {[string is int -strict [set $var]]} {
+            puts "$var = [set $var]"
+            incr sum_global_int [set $var]
+            incr n_global_int
+        }
+    }
+    puts "number of global ints = $n_global_int"
+    puts "their sum = $sum_global_int"
+}