Better Sieve - Finding first n unique characters in Clojure

Code

;; better_sieve.clj

(def string "rgaraga4agjrj4rikllmrfmghjqwwrwengek")

(defn sieve [length coll]
  (->> coll
       (partition length 1)
       (some #(when (apply distinct? %)
                (apply str %)))))

(sieve 4 string)

Notes

• Comment by Cameron Desautels
• Cameron Desautels on Youtube