Реализации алгоритмов/Сортировка/Слиянием: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки |
|||
Строка 283:
Console.ReadKey();
}
</source>
==[[w:Clojure|Clojure]]==
Реализация на языке Clojure
<source lang="clojure">
(defn merge-sort
"sorting the given collection with merge-sort"
[coll]
(if (or (empty? coll) (= 1 (count coll)))
coll
(let [[l1 l2] (split-at (/ (count coll) 2) coll)]
;recursive call
(loop [r [] l1 (merge-sort l1) l2 (merge-sort l2)]
;merging
(cond (empty? l1) (into r l2) ;when l1 is exhausted
(empty? l2) (into r l1) ;when l2 is exhausted
:else (if (> 0 (compare (first l1) (first l2))) ;comparison
(recur (conj r (first l1)) (rest l1) l2)
(recur (conj r (first l2)) l1 (rest l2))))))))
</source>
| |||