Làm cách nào để bạn soạn hai hoặc nhiều vị từ trong clojure?

Question

Tôi muốn áp dụng hai (hoặc nhiều) biến vị ngữ cho một giá trị duy nhất. Ví dụ: giả sử tôi muốn kiểm tra xem một giá trị có phải là số nguyên dương không:

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

Điều đó xảy ra, nhưng nếu tôi muốn áp dụng các biến vị ngữ? Tôi không muốn viết một hàm cho mỗi tổ hợp có thể có của các vị từ.

Answer 1

Trong Clojure 1.3 có thực sự là một chức năng built-in gọi every-pred làm chỉ này. Xem here.

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

Answer 2

Nếu bạn đang tìm cách thực hiện các séc này nội dòng, những điều sau đây có thể là những gì bạn đang tìm kiếm.

(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) 

Sau đó bạn có thể tạo ra các phiên bản tên cho các bài kiểm tra ngữ sử dụng nhiều nhất của bạn:

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

(posint? 4)