Time for an 2014 update…

Task/Multifactorial/Seed7/multifactorial.seed7

@@ -0,0 +1,25 @@
+$ include "seed7_05.s7i";
+
+const func integer: multiFact (in var integer: num, in integer: degree) is func
+  result
+    var integer: multiFact is 1;
+  begin
+    while num > 1 do
+      multiFact *:= num;
+      num -:= degree;
+    end while;
+  end func;
+
+const proc: main is func
+  local
+    var integer: degree is 0;
+    var integer: num is 0;
+  begin
+    for degree range 1 to 5 do
+      write("Degree " <& degree <& ": ");
+      for num range 1 to 10 do
+        write(multiFact(num, degree) <& " ");
+      end for;
+      writeln;
+    end for;
+  end func;