Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn merge-sort [A p r]
- (if (< p r)
- (let [q (int (Math/floor (/ (+ p r) 2)))]
- (merge-sort A p q)
- (merge-sort A (inc q) r)
- (merge* A p q r))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement