求解一元二次方程

resolve-formula.clj

(defn resolve-formula [a b c]
  (let [m (- (Math/pow b 2) (* 4 a c))]
    (if (>= m 0)
      (let [sqrt-m (Math/sqrt m)
            minus-b (- 0 b)
            a-2 (* 2 a)]
        [(/ (+ minus-b sqrt-m) a-2) (/ (- minus-b sqrt-m) a-2)])
      [nil nil])))

So nostalgic...