greater-than-less-than.clj

;; Greater-Than and Less-Than comparator->bool helpers

(defn gt? [x y]
  (case (compare x y)
    1  true
    0  false
    -1 false))

(defn lt? [x y]
  (case (compare x y)
    1  false
    0  false
    -1 true))

compare returns positive and negative values, not necessarily just 1 and -1.

> (compare "abc" "def")
-3