Initial data commit

Task/Multifactorial/REXX/multifactorial.rexx

@@ -0,0 +1,18 @@
+/*REXX program calculates and displays K-fact (multifactorial) of non-negative integers.*/
+numeric digits 1000                              /*get ka-razy with the decimal digits. */
+parse arg num deg .                              /*get optional arguments from the C.L. */
+if num=='' | num==","   then num=15              /*Not specified?  Then use the default.*/
+if deg=='' | deg==","   then deg=10              /* "      "         "   "   "     "    */
+say '═══showing multiple factorials (1 ──►'     deg")  for numbers  1 ──►"      num
+say
+     do d=1  for deg                             /*the factorializing (degree)  of  !'s.*/
+     _=                                          /*the list of factorials  (so far).    */
+            do f=1  for num                      /* ◄── perform a ! from  1 ───► number.*/
+            _=_  Kfact(f, d)                     /*build a  list  of factorial products.*/
+            end   /*f*/                          /* [↑]    D   can default to  unity.   */
+
+     say right('n'copies("!", d), 1+deg)    right('['d"]", 2+length(num) )':'     _
+     end          /*d*/
+exit                                             /*stick a fork in it,  we're all done. */
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+Kfact: procedure; !=1;   do j=arg(1)  to 2  by -word(arg(2) 1,1);  !=!*j;  end;   return !