clojure 中的 Take-while 和 take-nth

Question

我正在尝试从队列中获取 n 条消息（使用 langohr）。我有一个工作版本，但我想知道是否有更好的 clojurist 方法来做到这一点：

(def not-nil? (complement nil?))

(defn get_message [queue] 
   (let [[_ payload] (lb/get ch queue)]
       (if (not-nil? payload)
         (String. payload "UTF-8"))))


(take 4 (take-while not-nil? (repeatedly (partial get_message "my_queue"))))

所以只要队列中有消息，我就最多提取 N 条消息。

有没有更好的clojurist 方法来做到这一点？

Answer 1

not-nil? 与 clojure 1.6 中的内置函数 some? 相同

习惯用法是在 Clojure 绑定名称中使用 - 而不是 _。

(partial get_message "my_queue") 比 #(get-message "my_queue") 更好，因为您显然无意添加参数

(if (some? payload) (String. payload "UTF-8"))

可以表示为

(some-> payload (String. "UTF-8")),

虽然您可能希望保留some-> 以进行更长的链接，但在这种情况下它仍然更简洁。

所以，把这一切放在一起：

(defn get-message [queue]
  (let [[_ payload] (lb/get ch queue)]
    (some-> payload (String. "UTF-8"))))

(take 4 (take-while some? (repeatedly #(get-message "my_queue"))))