Hi,
On 9 Nov., 02:42, Greg <[email protected]> wrote:
> The only thing is that while your distinct-by function doesn't seem to work...
Bleh. :( It *was* late in the night...
(defn distinct-by
[keyfn coll]
(let [step (fn step [xs seen]
(lazy-seq
((fn [[f :as xs] seen]
(when-let [s (seq xs)]
(let [k (keyfn f)]
(if (contains? seen k)
(recur (rest s) seen)
(cons f (step (rest s) (conj seen k)))))))
xs seen)))]
(step coll #{})))
Now this should do the trick. Of course we have to conj the key value
as it is returned by the keyfn. Otherwise compare apples with the
fruit truck.
Sincerely
Meikel
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
