#ifndef SCITBX_RATIONAL_H
#define SCITBX_RATIONAL_H

#include <boost/rational.hpp>
#include <string>
#include <cstdio>

namespace scitbx {

  //! Formatting of rational numbers.
  template <typename IntType>
  std::string
  format(
    boost::rational<IntType> const& v,
    bool decimal=false)
  {
    if (v.numerator() == 0) return std::string("0");
    char buf[128];
    if (decimal) {
      std::snprintf(buf, sizeof(buf), "%.6g", double(v.numerator()) / v.denominator());
      char* cp = buf;
      if (*cp == '-') cp++;
      if (*cp == '0') {
        char* cpp = cp + 1; while (*cp) *cp++ = *cpp++;
      }
    }
    else if (v.denominator() == 1) {
      std::snprintf(buf, sizeof(buf), "%ld", static_cast<long>(v.numerator()));
    }
    else {
      std::snprintf(buf, sizeof(buf), "%ld/%ld", static_cast<long>(v.numerator()),
                                                 static_cast<long>(v.denominator()));
    }
    return std::string(buf);
  }

  template <typename IntType>
  std::string
  format(
    boost::rational<IntType> const* values,
    std::size_t values_size,
    char const* seperator=",",
    bool decimal=false)
  {
    std::string result;
    if (values_size != 0) {
      result.reserve(8*values_size);
      for(std::size_t i=0;;) {
        result += format(values[i++], decimal);
        if (i == values_size) break;
        result += seperator;
      }
    }
    return result;
  }

  template <typename ArrayType>
  typename ArrayType::value_type
  array_lcm(ArrayType const& a)
  {
    typename ArrayType::value_type result;
    if (a.size() > 0) {
      result = a[0];
      for(std::size_t i=1;i<a.size();i++) {
        result = boost::lcm(result, a[i]);
      }
    }
    return result;
  }

} // namespace scitbx

#endif // SCITBX_RATIONAL_H