quadratic.roots <- function(a_coeff, b_coeff, c_coeff) {
q_roots
<- ((- b_coeff
) + (sqrt(b_coeff
^2 - 4(a_coeff
* c_coef
)))) / (2 * a_coeff
) q_roots_list <- list(q_roots)
return(q_roots_list)
}
cXVhZHJhdGljLnJvb3RzIDwtIGZ1bmN0aW9uKGFfY29lZmYsIGJfY29lZmYsIGNfY29lZmYpIHsKICBxX3Jvb3RzIDwtICgoLSBiX2NvZWZmKSArIChzcXJ0KGJfY29lZmZeMiAtIDQoYV9jb2VmZiAqIGNfY29lZikpKSkgLyAoMiAqIGFfY29lZmYpCiAgcV9yb290c19saXN0IDwtIGxpc3QocV9yb290cykKICByZXR1cm4ocV9yb290c19saXN0KQp9Cg==