¿Cómo se componen dos o más predicados en clojure?

Question

Quiero aplicar dos (o más) predicados a un solo valor. Por ejemplo, digamos que quiero probar si un valor es un entero positivo:

(defn posint? [n] 
    (and (integer? n) (pos? n))) 

que lo hace, pero lo que si quiero componer los predicados aplicados? No quiero escribir una función para cada posible combinación de predicados.

Answer 1

En Clojure 1.3 en realidad hay una función integrada llamada every-pred para hacer precisamente esto. Ver here.

(defn posint? [n] 
    ((every-pred integer? pos?) n)) 

Answer 2

Si está buscando hacer estos controles en línea, lo siguiente puede ser lo que está buscando.

(defn predicate-test [fns t] 
    "test all predicates against value t and return true iff all predicates return true." 
    (every? true? ((apply juxt fns) t))) 

(predicate-test [integer? pos?] 4) 

A continuación, puede crear versiones llevan el nombre de sus pruebas de predicados más utilizados:

(def posint? (partial predicate-test [integer? pos?]) 

(posint? 4)