Bhaskara 2

bhaskara.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]
  (let [menos-b (- b)
        b-quadrado (* b b)
        delta (Math/sqrt (- b-quadrado (* 4 a c)))
        denominador (* 2 a)
        x1 (/ (+ menos-b delta) denominador)
        x2 (/ (- menos-b delta) denominador)]
    [x1 x2]))

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