lol

sorting.clj

(defn sort-by-lambdas [lambdas to-sort]
  (sort-by
    #(mapv (fn [lambda] (lambda %)) lambdas)
    to-sort))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;test

(describe "sorting"
  (it "sorts by lowercased name"
    (let [people [{:name "aaa"} {:name "BBB"}]]
      (should=
        ["aaa" "BBB"]
        (map :name (sort-by-lambdas [#(clojure.string/lower-case (:name %))] people)))))

  (it "prioritizes one field over another"
    (let [first-person  {:age 22 :children 1}
          second-person {:age 22 :children 100}
          third-person  {:age 30 :children 0}]
      (should=
        [first-person second-person third-person]
        (sort-by-lambdas [:age :children] [first-person second-person third-person]))
      (should=
        [third-person first-person second-person]
      (sort-by-lambdas [:children :age] [first-person second-person third-person])))))