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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Gamma-function/REXX/gamma-function-3.rexx
View file

@ -49,7 +49,7 @@ procedure expose glob. fact.
arg x
/* Formulas for negative and positive (half)integers */
if x < 0 then do
if IsHalf(x) then do
if Half(x) then do
numeric digits Digits()+2
i = Abs(Floor(x)); y = (-1)**i*2**(2*i)*Fact(i)*Sqrt(Pi())/Fact(2*i)
numeric digits Digits()-2
@ -57,9 +57,9 @@ if x < 0 then do
end
end
if x > 0 then do
if IsWhole(x) then
if Whole(x) then
return Fact(x-1)
if IsHalf(x) then do
if Half(x) then do
numeric digits Digits()+2
i = Floor(x); y = Fact(2*i)*Sqrt(Pi())/(2**(2*i)*Fact(i))
numeric digits Digits()-2