significand.c 102 B

1234567
  1. #define _GNU_SOURCE
  2. #include <math.h>
  3. double significand(double x)
  4. {
  5. return scalbn(x, -ilogb(x));
  6. }