Add all the A tasks

Task/Apply-a-callback-to-an-array/Tcl/apply-a-callback-to-an-array-1.tcl

@@ -0,0 +1,3 @@
+foreach var $dat {
+    myfunc $var
+}

Task/Apply-a-callback-to-an-array/Tcl/apply-a-callback-to-an-array-2.tcl

@@ -0,0 +1,3 @@
+foreach name [array names dat] {
+    myfunc $dat($name)
+}

Task/Apply-a-callback-to-an-array/Tcl/apply-a-callback-to-an-array-3.tcl

@@ -0,0 +1,9 @@
+proc map {f list} {
+   set res {}
+   foreach e $list {lappend res [$f $e]}
+   return $res
+}
+proc square x {expr {$x*$x}}
+
+% map square {1 2 3 4 5}
+1 4 9 16 25