Initial data commit

Task/Partial-function-application/Tcl/partial-function-application-2.tcl

@@ -0,0 +1,15 @@
+proc fs {f s} {
+    set r {}
+    foreach n $s {
+	lappend r [{*}$f $n]
+    }
+    return $r
+}
+proc f1 x {expr {$x * 2}}
+proc f2 x {expr {$x ** 2}}
+set fsf1 [partial fs f1]
+set fsf2 [partial fs f2]
+foreach s {{0 1 2 3} {2 4 6 8}} {
+    puts "$s ==f1==> [$fsf1 $s]"
+    puts "$s ==f2==> [$fsf2 $s]"
+}