June 2018 Update

Task/Multifactorial/Aime/multifactorial.aime

@@ -0,0 +1,30 @@
+integer
+mf(integer a, integer n)
+{
+    integer o;
+
+    o = 1;
+    do {
+        o *= a;
+    } while (0 < (a -= n));
+
+    return o;
+}
+
+integer
+main(void)
+{
+    integer i, j;
+
+    i = 0;
+    while ((i += 1) <= 5) {
+        o_("degree ", i, ":");
+        j = 0;
+        while ((j += 1) <= 10) {
+            o_("\t", mf(j, i));
+        }
+        o_("\n");
+    }
+
+    return 0;
+}