a guest Mar 25th, 2012 35 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn merge-sort [A p r]
  2.   (if (< p r)
  3.     (let [q (int (Math/floor (/ (+ p r) 2)))]
  4.       (merge-sort A p q)
  5.       (merge-sort A (inc q) r)
  6.       (merge* A p q r))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand