Line data    Source code

       1              : /*----------------------------------------------------------------------------*/
       2              : /*  CP2K: A general program to perform molecular dynamics simulations         */
       3              : /*  Copyright 2000-2026 CP2K developers group <https://cp2k.org>              */
       4              : /*                                                                            */
       5              : /*  SPDX-License-Identifier: MIT                                              */
       6              : /*----------------------------------------------------------------------------*/
       7              : 
       8              : /*
       9              :  *  libgrpp - a library for the evaluation of integrals over
      10              :  *            generalized relativistic pseudopotentials.
      11              :  *
      12              :  *  Copyright (C) 2021-2023 Alexander Oleynichenko
      13              :  */
      14              : 
      15              : #include "grpp_binomial.h"
      16              : 
      17              : #include <stdint.h>
      18              : 
      19              : /* The code is borrowed from RosettaCode:
      20              :  * https://rosettacode.org/wiki/Evaluate_binomial_coefficients#C
      21              :  * We go to some effort to handle overflow situations.
      22              :  */
      23              : 
      24              : static uint64_t gcd_ui(uint64_t x, uint64_t y);
      25              : 
      26              : /*
      27              :  * returns binomial coefficient:
      28              :  * ( n )
      29              :  * ( k )
      30              :  */
      31    424372529 : uint64_t libgrpp_binomial(uint64_t n, uint64_t k) {
      32    424372529 :   uint64_t d, g, r = 1;
      33              : 
      34    424372529 :   if (k == 0) {
      35              :     return 1;
      36              :   }
      37    332380667 :   if (k == 1) {
      38              :     return n;
      39              :   }
      40    282785238 :   if (k >= n) {
      41    129947043 :     return (k == n);
      42              :   }
      43    152838195 :   if (k > n / 2) {
      44     74196987 :     k = n - k;
      45              :   }
      46    722015850 :   for (d = 1; d <= k; d++) {
      47    576809727 :     if (r >= UINT64_MAX / n) { /* Possible overflow */
      48      7632072 :       uint64_t nr, dr;         /* reduced numerator / denominator */
      49      7632072 :       g = gcd_ui(n, d);
      50      7632072 :       nr = n / g;
      51      7632072 :       dr = d / g;
      52      7632072 :       g = gcd_ui(r, dr);
      53      7632072 :       r = r / g;
      54      7632072 :       dr = dr / g;
      55      7632072 :       if (r >= UINT64_MAX / nr)
      56              :         return 0; /* Unavoidable overflow */
      57            0 :       r *= nr;
      58            0 :       r /= dr;
      59            0 :       n--;
      60              :     } else {
      61    569177655 :       r *= n--;
      62    569177655 :       r /= d;
      63              :     }
      64              :   }
      65              :   return r;
      66              : }
      67              : 
      68     15264144 : static uint64_t gcd_ui(uint64_t x, uint64_t y) {
      69     15264144 :   uint64_t t;
      70              : 
      71     15264144 :   if (y < x) {
      72      7632072 :     t = x;
      73      7632072 :     x = y;
      74      7632072 :     y = t;
      75              :   }
      76     38160360 :   while (y > 0) {
      77     22896216 :     t = y;
      78     22896216 :     y = x % y;
      79     22896216 :     x = t; /* y1 <- x0 % y0 ; x1 <- y0 */
      80              :   }
      81     15264144 :   return x;
      82              : }