让我们land代表"逻辑和",然后他们很容易定义:
(defn land
([] true)
([x & xs] (and x (apply land xs))))
Run Code Online (Sandbox Code Playgroud)
或者,稍微接近标准and行为:
(defn land
([] true)
([x] x)
([x & xs] (and x (apply land xs))))
Run Code Online (Sandbox Code Playgroud)
同样的or.