Ecuación cuadrática

COdigo utilizado para la ecuaciOn cuadratica

cuadratica<-function(a,b,c){
  discriminante<-(b^2-4*a*c)
  ifelse(discriminante<0,"raiz compleja",{
    x1<- (-b-sqrt(discriminante))/(2*a)
    x2<- (-b+sqrt(discriminante))/(2*a)
  resultado<-list(x1,x2)
  names(resultado)<-c("X1","X2")
  return(resultado)
  })
}

Prueba 1

cuadratica(3,4,1)

## $X1
## [1] -1
## 
## $X2
## [1] -0.3333333

Prueba 2

cuadratica(3,4,5)

## [1] "raiz compleja"