tasks a-s

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

@@ -0,0 +1,9 @@
+package require Tcl 8.6
+proc partial {f1 f2} {
+    variable ctr
+    coroutine __curry[incr ctr] apply {{f1 f2} {
+	for {set x [info coroutine]} 1 {} {
+	    set x [{*}$f1 $f2 [yield $x]]
+	}
+    }} $f1 $f2
+}