aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Time for an 2014 update…

Browse source
This commit is contained in:
Ingy döt Net 2014-01-17 05:32:22 +00:00
parent 372c577f83
commit 09687c4926
2520 changed files with 34227 additions and 7318 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Multifactorial/REXX/multifactorial.rexx
View file

@ -1,20 +1,21 @@
/*REXX pgm calculates K-fact (multifactorial) of non-negative integers.*/
numeric digits 1000 /*lets get ka-razy with precision*/
parse arg num deg . /*allow user to specify num & deg*/
if num=='' | num==',' then num=12 /*Not specified? Then use default*/
if deg=='' | deg==',' then deg=10 /* " " " " " */
if num=='' | num==',' then num=15 /*Not specified? Then use 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 (º) of !'s. */
_= /*the list of factorials so far. */
do f=1 for num /* ◄── do a ! from 1 to num.*/
_=_ Kfact(f,d) /*construct a list of factorials.*/
end /*f*/ /*(above) D can default to 1.*/
do d=1 to deg /*the degree of factorialization.*/
_= /*the list of factorials so far. */
do f=1 to num
_=_ Kfact(f,d) /*construct a list of factorials.*/
end /*f*/ /*(above) D can be omitted. */
say 'degree' right(d,length(num))':' _ /*show factorials.*/
end /*d*/
say right('n'copies("!", d),1+deg) right('['d"]",2+length(num))':' _
end /*d*/
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────KFACT subroutine────────────────────*/
Kfact: procedure; !=1; do j=arg(1) to 2 by -word(arg(2) 1, 1)
Kfact: procedure; !=1; do j=arg(1) to 2 by -word(arg(2) 1, 1)
!=!*j
end /*j*/
return !