September 2017 Update

Task/Partial-function-application/Phix/partial-function-application-1.phix

@@ -0,0 +1,24 @@
+function fs(integer rid, sequence s)
+    for i=1 to length(s) do
+        s[i] = call_func(rid,{s[i]})
+    end for
+    return s
+end function
+
+function p_apply(sequence f, sequence args)
+    return call_func(f[1],{f[2],args})
+end function
+
+function f1(integer i)
+    return i+i
+end function
+
+function f2(integer i)
+    return i*i
+end function
+
+constant fsf1 = {routine_id("fs"),routine_id("f1")},
+         fsf2 = {routine_id("fs"),routine_id("f2")}
+
+?p_apply(fsf1,{0,1,2,3})
+?p_apply(fsf2,{2,4,6,8})

Task/Partial-function-application/Phix/partial-function-application-2.phix

@@ -0,0 +1,4 @@
+function p_apply(sequence ffsa, sequence extra_args)
+    object {fa,fx,set_args} = ffsa
+    return call_func(fa,{fx,set_args&extra_args})
+end function