use super::funejson::Value;
use super::math_rational_rational::{rational_from_value, rational_from_wide, rational_parts, rational_to_value};

/// a ÷ b, reduced. Dividing by zero is an error, never an infinity.
///
/// # Panics
/// Panics if `b` is zero, on a zero denominator, or a result outside ±(2^53 - 1).
pub fn divide_rational(a: &Rational, b: &Rational) -> Rational {
    let (an, ad) = rational_parts(a);
    let (bn, bd) = rational_parts(b);
    if bn == 0 {
        panic!("division by zero");
    }
    rational_from_wide(an * bd, ad * bn)
}

pub fn fune_vector(args: &[Value]) -> Value {
    rational_to_value(&divide_rational(&rational_from_value(&args[0]), &rational_from_value(&args[1])))
}