compare

[procedure] compare comparer scorer

Creates a procedure that compares two objects, by first applying scorer to both and then applying comparer to the result.

(def compare (comparer scorer)
  (fn (x y) (comparer (scorer x) (scorer y))))