如果測試成功或在Clojure中返回默認值，返回值的習慣性方法

Question

僅當測試成功時才返回值的慣用方式，否則返回默認值？我認爲創建一個微不足道，但我想知道是否有一個內置函數用於此目的。

(def a {:name "foo"}) 
(if (map? a) a {}) 
; {:name "foo"} 

(def b "bar") 
(if (map? b) b {}) 
; {} 

; is there a built-in function that looks like this? 
(get-if map? b {}) 

Answer 1

該宏是相當微不足道的寫作。我不相信這是慣用的，因爲它增加了一個額外的抽象層，而不增加可讀性。有人閱讀這樣的代碼，必須看看宏，以弄清楚發生了什麼，而不是簡單的if。

宏：

(defmacro get-if 
    [p v d] 
    `(let [val# ~v] 
    (if (~p val#) 
     val# 
     ~d))) 

或許，如果你告訴更多關於什麼是您的使用情況下，我可以幫助你嗎？

Answer 2

通常最好是使用功能，而不是宏，如果它是可能的：

(defn get-if [pred v default] 
    (if (pred v) v default))