is_power

COPY/// @func   is_power(value, base)
///
/// @desc   Returns true if a given value is a power of the a given base,
///         or false if it is not (or if it cannot be determined).
///
/// @param  {real}      value       number
/// @param  {real}      base        exponential base
///
/// @return {bool}      true if a power of base
///
/// GMLscripts.com/license

function is_power(value, base)
{
    if (value == 0 && base == 0) return false;
    if (value != 0 && base == 0) return false;
    if (value != 1 && base == 1) return false;
    if (value == 1 || base == 1) return true;
    return ((logn(base, value) mod 1) == 0);
}