packages feed

Flint2-0.1.0.0: csrc/fmpq/mediant.c

#include "../fmpq.h"

#include <flint/flint.h>

void fmpq_mediant(fmpq_t x, fmpq_t l, fmpq_t r) {

  fmpz_t num, den;

  fmpz_init(num);
  fmpz_init(den);

  fmpz_add(num, fmpq_numref(l), fmpq_numref(r));
  fmpz_add(den, fmpq_denref(l), fmpq_denref(r));
  
  fmpq_set_fmpz_frac(x, num, den);

  fmpz_clear(num);
  fmpz_clear(den);
 
}