Best way to find a particular map in a set of them?

gistfile1.clj

#!/usr/bin/env lein-exec

(def people
  #{{:id 1 :name "Gorf"}
    {:id 2 :name "Riff"}
    {:id 3 :name "Raff"}
    ;; ... snip lots more
    {:id 10000 :name "Grum"}})

;; Quick, find Raff's id!

;; Method one: crazy wasteful
(let [id (first (filter (fn [person]
                          (= (person :name) "Raff"))
                        people))]
  (println id))

;; Method two: better
(let [id (first
          (drop-while (fn [person]
                        (not= (person :name) "Raff"))
                      people))]
  (println id))