sub floats_eq {
    my ($num1, $num2, $sig) = @_;
    $_ = sprintf "%.${sig}g" foreach $num1, $num2;
    return $num1 eq $num2;
}