orf

[procedure] orf fn ...

[procedure] andf fn ...

Returns a predicate that returns true iff the argument satisfies some of fns (orf) or all of fns (andf). Same as scheme:any-pred and scheme:every-pred.

(def orf fns
  (fn (x) (some [_ x] fns)))

(def andf fns
  (fn (x) (all [_ x] fns)))