Простой компаратор не сортирует, как ожидалось (I)

Question

Я ожидал, что этот фрагмент кода создаст исходный вектор, но отсортированный без учета регистра.Вместо этого я получаю оригинальный вектор нетронутым.Почему мой компаратор не работает?

user=> (ns user (require [clojure.contrib.string :as str]))
nil
user=> (sort 
         (comparator #(compare (str/upper-case %1) (str/upper-case %2)))
         ["B" "a" "c" "F" "r" "E"])
("B" "a" "c" "F" "r" "E")

Answer 1

comparator возвращает java.util.Comparator при наличии предиката (функция, которая возвращает истину или ложь).Вам это не нужно, если вы используете compare явно.Так что просто:

(sort #(compare (str/upper-case %1) (str/upper-case %2))
      ["B" "a" "c" "F" "r" "E"])
;=> ("a" "B" "c" "E" "F" "r")

В качестве альтернативы используйте sort-by:

(sort-by str/upper-case ["B" "a" "c" "F" "r" "E"])
;=> ("a" "B" "c" "E" "F" "r")

Answer 2

сравнение - это не предикат, это компаратор.