Sampling without replacement in Clojure

gistfile1.clj

(defn sample-without-replacement [coll]
  "Returns a tuple in which the first value is the sample and the
  second is a collection of the left over values.  Does not preserve
  the order of the input collection."
  (let [shuffled (shuffle coll)
        sample (last shuffled)
        rest (pop shuffled)]
      [sample rest]))