如何在cond的測試和結果中使用結果？

Question

我有下面的代碼：

(cond 
    (case-1? (compute-1 x)) (compute-1 x) 
    (case-2? (compute-2 x)) (compute-2 x) 
    (case-3? (compute-3 x)) (compute-3 x)) 

我想避免的compute-1，compute-2和compute-3重複計算。一種選擇是：

(let [result-1 (compute-1 x) 
     result-2 (compute-2 x) 
     result-3 (compute-3 x)] 
    (cond 
    (case-1? result-1) result-1 
    (case-2? result-2) result-2 
    (case-3? result-3) result-3)) 

現在，我不重複計算，但如果現在(case-1? result-1)而不是計算結果爲真，result-2和result-3計算了沒有理由。
行爲上我想是這樣的：

(let [result-1 (compute-1 x)] 
    (if (case-1? result-1) 
    result-1 
    (let [result-2 (compute-2 x)] 
     (if (case-2? result-2) 
     result-2 
     (let [result-3 (compute-3 x)] 
      (if (case-3? result-3) 
      result-3)))))) 

但是這個代碼顯然是迅速成爲難以管理。有沒有更好的解決這個問題？

Answer 1

有一個名爲better cond的庫，它正好解決了這個問題。

它這樣使用：

(ns foo.core 
    (:require 
    [better-cond.core :as b])) 

(b/cond 
    :let [result-1 (compute-1 x)] 
    (case-1? result-1) result-1 

    :let [result-2 (compute-2 x)] 
    (case-2? result-2) result-2 

    :let [result-3 (compute-3 x)] 
    (case-3? result-3) result-3) 

這片段將macroexpand編寫一個類似您的最後一個例子。