/// Assert that two numbers are almost equal to each other.
///
/// On panic, this macro will print the values of the expressions with their
/// debug representations.
#[macro_export]
macro_rules! assert_almost_eq {
    ($a:expr, $b:expr, $prec:expr) => {
        let diff = ($a - $b).abs();
        if diff > $prec {
            panic!(
                "assertion failed: `abs(left - right) = {:.1e} < {:e}`, \
                   (left: `{}`, right: `{}`)",
                diff, $prec, $a, $b
            );
        }
    };
}

/// Concatenate several iterative estimators into one.
///
/// `$name` is the name of the new struct. `$statistic` is the name of a
/// statistic and must exist as a method of the corresponding type `$estimator`.
/// `$estimator` must have an `add` method for adding new observations to the
/// sample (taking an `f64` as an argument). It must also implement `Default`.
///
/// If the short syntax is used, the fields will be named `$statistic`. Use the
/// long syntax and `$field` to give them explicit names. The long syntax also
/// supports calculating several statistics from one estimator.
///
/// For moments, only an estimator for the highest moment should be used and
/// reused for the lower moments (see the example below).
///
/// The following methods will be implemented: `new`, `add`, `$statistic`.
///
/// The following traits will be implemented: `Default`, `FromIterator<f64>`.
///
///
/// # Examples
///
/// ```
/// use average::{Min, Max, Estimate, concatenate};
///
/// concatenate!(MinMax, [Min, min], [Max, max]);
///
/// let s: MinMax = (1..6).map(f64::from).collect();
///
/// assert_eq!(s.min(), 1.0);
/// assert_eq!(s.max(), 5.0);
/// ```
///
/// The generated code looks roughly like this:
///
/// ```
/// # use average::{Min, Max, Estimate};
/// #
/// struct MinMax {
///     min: Min,
///     max: Max,
/// }
///
/// impl MinMax {
///     pub fn new() -> MinMax {
///         MinMax { min: Min::default(), max: Max::default() }
///     }
///
///     pub fn add(&mut self, x: f64) {
///         self.min.add(x);
///         self.max.add(x);
///     }
///
///     pub fn min(&self) -> f64 {
///         self.min.min()
///     }
///
///     pub fn max(&self) -> f64 {
///         self.max.max()
///     }
/// }
/// ```
///
/// If you want to calculate the mean, variance and the median in one pass, you
/// can do the following:
///
/// ```ignore
/// use average::{Variance, Quantile, Estimate, concatenate};
///
/// concatenate!(Estimator,
///     [Variance, variance, mean, sample_variance],
///     [Quantile, quantile, quantile]);
/// ```
#[macro_export]
macro_rules! concatenate {
    ( $visibility:vis $name:ident, $([$estimator:ident, $statistic:ident]),+ ) => {
        concatenate!($visibility $name, $([$estimator, $statistic, $statistic]),* );
    };
    ( $visibility:vis $name:ident, $( [$estimator:ident, $field:ident, $($statistic:ident),+] ),+ ) => {
        $visibility struct $name {
        $(
            $field: $estimator,
        )*
        }

        impl $name {
            #[inline]
            pub fn new() -> $name {
                $name {
                $(
                    $field: ::core::default::Default::default(),
                )*
                }
            }

            #[inline]
            pub fn add(&mut self, x: f64) {
                $(
                    self.$field.add(x);
                )*
            }

            $( $(
                #[inline]
                pub fn $statistic(&self) -> f64 {
                    self.$field.$statistic()
                }
            )* )*
        }

        impl Default for $name {
            fn default() -> $name {
                $name::new()
            }
        }

        $crate::impl_from_iterator!($name);

        // This should be conditionally activated if all fields implement `Merge`.
        // Could probably be implemented with specialization.
        /*
        impl $crate::Merge for $name {
            #[inline]
            fn merge(&mut self, other: &Self) {
                use $crate::Merge;
                $(
                    self.$field.merge(&other.$field);
                )*
            }
        }
        */
    };
}

/// Implement `FromIterator<f64>` for an iterative estimator.
#[macro_export]
macro_rules! impl_from_iterator {
    ( $name:ident ) => {
        impl ::core::iter::FromIterator<f64> for $name {
            fn from_iter<T>(iter: T) -> $name
            where
                T: IntoIterator<Item = f64>,
            {
                let mut e = $name::new();
                for i in iter {
                    e.add(i);
                }
                e
            }
        }

        impl<'a> ::core::iter::FromIterator<&'a f64> for $name {
            fn from_iter<T>(iter: T) -> $name
            where
                T: IntoIterator<Item = &'a f64>,
            {
                let mut e = $name::new();
                for &i in iter {
                    e.add(i);
                }
                e
            }
        }
    };
}

/// Implement `FromParallelIterator<f64>` for an iterative estimator.
///
/// This will do nothing unless the `rayon` feature is enabled.
#[macro_export]
macro_rules! impl_from_par_iterator {
    ( $name:ident ) => {
        #[cfg(feature = "rayon")]
        #[cfg_attr(doc_cfg, doc(cfg(feature = "rayon")))]
        impl ::rayon::iter::FromParallelIterator<f64> for $name {
            fn from_par_iter<I>(par_iter: I) -> $name
            where
                I: ::rayon::iter::IntoParallelIterator<Item = f64>,
                Self: $crate::Merge,
            {
                use ::rayon::iter::ParallelIterator;
                use $crate::Merge;

                let par_iter = par_iter.into_par_iter();
                par_iter
                    .fold(
                        || $name::new(),
                        |mut e, i| {
                            e.add(i);
                            e
                        },
                    )
                    .reduce(
                        || $name::new(),
                        |mut a, b| {
                            a.merge(&b);
                            a
                        },
                    )
            }
        }

        #[cfg(feature = "rayon")]
        #[cfg_attr(doc_cfg, doc(cfg(feature = "rayon")))]
        impl<'a> ::rayon::iter::FromParallelIterator<&'a f64> for $name {
            fn from_par_iter<I>(par_iter: I) -> $name
            where
                I: ::rayon::iter::IntoParallelIterator<Item = &'a f64>,
                Self: $crate::Merge,
            {
                use ::rayon::iter::ParallelIterator;
                use $crate::Merge;

                let par_iter = par_iter.into_par_iter();
                par_iter
                    .fold(
                        || $name::new(),
                        |mut e, i| {
                            e.add(*i);
                            e
                        },
                    )
                    .reduce(
                        || $name::new(),
                        |mut a, b| {
                            a.merge(&b);
                            a
                        },
                    )
            }
        }
    };
}

/// Implement `Extend<f64>` for an iterative estimator.
#[macro_export]
macro_rules! impl_extend {
    ( $name:ident ) => {
        impl ::core::iter::Extend<f64> for $name {
            fn extend<T>(&mut self, iter: T)
            where
                T: IntoIterator<Item = f64>,
            {
                for i in iter {
                    self.add(i);
                }
            }
        }

        impl<'a> ::core::iter::Extend<&'a f64> for $name {
            fn extend<T>(&mut self, iter: T)
            where
                T: IntoIterator<Item = &'a f64>,
            {
                for &i in iter {
                    self.add(i);
                }
            }
        }
    };
}