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 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Gamma-function/REXX/gamma-function.rexx
View file

@ -1,10 +1,13 @@
-- 8 May 2025
-- 28 Jul 2025
include Settings
arg n
if n = '' then
n = 100
numeric digits n
say 'GAMMA'
say version
say
arg n; if n = '' then n = 100; numeric digits n
say '(Half)integers formulas'
w = '-99.5 -10.5 -5.5 -2.5 -1.5 -0.5 0.5 1 1.5 2 2.5 5 5.5 10 10.5 99 99.5'
numeric digits n
@ -47,12 +50,8 @@ end
exit
Stirling:
procedure expose glob. fact.
procedure expose Memo. fact.
arg x
return Sqrt(2*Pi()/x) * Power(x/e(),x)
include Constants
include Functions
include Special
include Numbers
include Abend
include Math