September 2017 Update

Task/Gamma-function/Sidef/gamma-function-1.sidef

@@ -7,13 +7,13 @@ var a = [ 1.00000_00000_00000_00000,  0.57721_56649_01532_86061, -0.65587_80715_
           0.00000_00001_04342_67117,  0.00000_00000_07782_26344, -0.00000_00000_03696_80562,
           0.00000_00000_00510_03703, -0.00000_00000_00020_58326, -0.00000_00000_00005_34812,
           0.00000_00000_00001_22678, -0.00000_00000_00000_11813,  0.00000_00000_00000_00119,
-          0.00000_00000_00000_00141, -0.00000_00000_00000_00023,  0.00000_00000_00000_00002 ];
+          0.00000_00000_00000_00141, -0.00000_00000_00000_00023,  0.00000_00000_00000_00002 ]
 
 func gamma(x) {
-    var y = (x - 1);
-    1 / a.reverse.reduce {|sum, an| sum*y + an};
+    var y = (x - 1)
+    1 / a.reverse.reduce {|sum, an| sum*y + an}
 }
 
 for i in 1..10 {
-    say ("%.14e" % gamma(i/3));
+    say ("%.14e" % gamma(i/3))
 }

Task/Gamma-function/Sidef/gamma-function-2.sidef

@@ -3,36 +3,35 @@ func gamma(z) {
     func withinepsilon(x) {
         abs(x - abs(x)) <= epsilon
     }
-
+ 
     var p = [
         676.5203681218851,     -1259.1392167224028,
         771.32342877765313,    -176.61502916214059,
         12.507343278686905,    -0.13857109526572012,
         9.9843695780195716e-6,  1.5056327351493116e-7,
     ]
-
-    var result;
-    z = Complex(z)
-    const pi = Complex.pi
-
-    if (z.real < 0.5) {
-        result = (pi / (sin(pi * z) * gamma(Complex(1) - z)))
+ 
+    var result = 0
+    const pi = Num.pi
+ 
+    if (z.re < 0.5) {
+        result = (pi / (sin(pi * z) * gamma(1 - z)))
     }
     else {
         z -= 1
         var x = 0.99999999999980993
-
+ 
         p.each_kv { |i, v|
             x += v/(z + i + 1)
         }
-
+ 
         var t = (z + p.len - 0.5)
         result = (sqrt(pi*2) * t**(z+0.5) * exp(-t) * x)
     }
-
-    withinepsilon(result.im) ? result.real : result
+ 
+    withinepsilon(result.im) ? result.re : result
 }
-
+ 
 for i in 1..10 {
-    say ("%.14e" % gamma(i/3));
+    say ("%.14e" % gamma(i/3))
 }

Task/Gamma-function/Sidef/gamma-function-3.sidef

@@ -1,11 +1,11 @@
-define e  = Math.e;
-define pi = Math.pi;
-
+define ℯ = Num.e
+define τ = Num.tau
+ 
 func Γ(t) {
-    t < 20 ? (__FUNC__(t + 1) / t)
-           : (Math.sqrt(2*pi*t) * Math.pow(t/e + 1/(12*e*t), t) / t);
+    t < 20 ? (__FUNC__(t + 1) / t)
+           : (sqrt(τ*t) * pow(t/ℯ + 1/(12*ℯ*t), t) / t)
 }
-
-for i in 1..10 {
-    say ("%.14e" % Γ(i/3));
+ 
+for i in (1..10) {
+    say ("%.14e" % Γ(i/3))
 }