September 2017 Update

Task/Multifactorial/Phix/multifactorial.phix

@@ -0,0 +1,15 @@
+function multifactorial(integer n, integer order)
+atom res = 1
+    if n>0 then
+        res = n*multifactorial(n-order,order)
+    end if
+    return res
+end function
+
+sequence s = repeat(0,10)
+for i=1 to 5 do
+    for j=1 to 10 do
+        s[j] = multifactorial(j,i)
+    end for
+    ?s
+end for