Skip to content

Instantly share code, notes, and snippets.

@timvisher

timvisher/-

Created October 23, 2013 00:50
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save timvisher/7110708 to your computer and use it in GitHub Desktop.
Save timvisher/7110708 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
-
(defn verse-map< [{:keys [book chapter verse] :as verse-map} & verse-maps]
(let [verse-maps (into [verse-map] verse-maps)
simple-verse-maps (map (juxt :book :chapter :verse) verse-maps)
comparison-pairs (partition 2 1 simple-verse-maps)]
(every? (fn [comparison-pair]
(> 0 (apply compare comparison-pair)))
comparison-pairs)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment