--sas

nov15-euler-constant

Nov 15th, 2022
764
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C 0.66 KB | None | 0 0
  1. #include <stdio.h>
  2. #include <math.h>
  3.  
  4. int main() {
  5.     long long N = 1;
  6.     N <<= 34;
  7.  
  8.     long long int border[35];
  9.     double part[34];
  10.    
  11.     for (int i = 0; i <= 33; ++i)
  12.         part[i] = 0.0;
  13.  
  14.     border[0] = 1;
  15.     for (int i = 1; i <= 34; ++i)
  16.         border[i] = border[i - 1] << 1;
  17.    
  18.     long long k = N;
  19.     for (int i = 33; i >= 0; --i) {
  20.         for (k; k > border[i]; --k)
  21.             part[i] += 1.0 / (double) k;
  22.     }
  23.  
  24.     double S = 0.0;
  25.  
  26.     for (int i = 33; i >= 0; --i)
  27.         S += part[i];
  28.  
  29.     S += 1.0;
  30.  
  31.     double logn = log(N);
  32.  
  33.     double C = S - logn;
  34.  
  35.     printf("%1.10f\n", C);
  36.  
  37.     return 0;
  38. }
Advertisement
Add Comment
Please, Sign In to add comment