Myös

~~~{.clj}
(defn set->predicate [a-set]
  (fn [elem] (contains? a-set elem)))
~~~

tekis saman yksinkertasemmin.