(ns seajure.bbq
  "Address of my house where the Seajure BBQ will be held on 2011-09-01.

This version does not evaluate to my actual address for privacy
reasons. Email seajure@googlegroups.com if you are going to the BBQ to
get the real version.")

(defn a []
  (+ (->> a doc with-out-str count str reverse (apply str) read-string (* 900))
     500 (int (Math/sqrt (apply * (take 7 (repeat 2)))))))

(defn b
  ([] (b #{"Ave" "Street" "Boulevard" "Junction"}))
  ([s] (or (and (empty? (disj s (first s))) (first s))
           (b (disj s (first (sort-by count s)))))))

(defn c []
  (ffirst (filter #(= "Same as (first (next x))" (-> % val meta :doc))
                  (ns-publics 'clojure.core))))

(defn d []
  (let [f (fn [c]
            (->> (ns-interns *ns*)
                 (sort-by c)
                 first key name last))
        one (fn [f] (f key))
        two (fn [f] (f (comp not :private meta val)))]
    (.toUpperCase
     (apply str ((juxt one two) f)))))

(defn- e []
  (/ (+ 24 426) 10))

(defn -main []
  ((ns-resolve (doto 'clojure.string require) 'join) " "
   ((apply juxt (for [i (sort-by #(mod % 2) (range 4))]
                  (-> i (+ 97) char str symbol resolve))))))