Equação quadrática do jeito verboso

bhaskara1.clj

;; Uma equação de segundo grau segue a forma ax² + bx + c
;; Então, em x² - x - 2c = 0 teríamos
;;   a = 1
;;   b = -1
;;   c = -2
;; Então vamos invocar a função com (bhaskara 1 -1 2)
;;   e vamos receber um array com os valores possiveis de x

(defn bhaskara [a b c]
  [(/ (+ (- b) (Math/sqrt (- (* b b) (* 4 a c)))) (* 2 a))
   (/ (- (- b) (Math/sqrt (- (* b b) (* 4 a c)))) (* 2 a))])

(bhaskara 1 -1 -2)
; [2.0, -1.0]

;; A ideia aqui é mostrar um código simples, mas com um visual intimidador, 
;;   para demonstrar como é possível melhorar o código sem esforço