改善循環復發

Question

我寫了一個函數，試圖從用戶交互地獲得y/n（是/否）答案。它測試，如果答案是有效的，如果不是，再次徵求用戶：

(defn get-valid-answer [question] 
    (println question) 
    (loop [] 
    (let [ans (.trim (read-line))] 
     (if (#{"y" "n"} ans) 
      ans 
      (do (println "Please answer \"y\"[yes] or \"n\"[no] only!") 
       (recur)))))) 

上述版本與環RECUR做的工作，但我有嘮叨的感覺，必須有一個更好的（更實用）的方式來做這個。我寧願讓read-line調用只做一次。任何人都可以提出一個替代版本在這種情況下不使用loop-recur，但可能使用一些（Clojure內置）宏？

Answer 1

想想一個小孩不斷問相同的問題，直到它得到滿意的答覆，然後在代碼中做同樣的事情。也就是說，從無窮無盡的問題中得到第一個有效答案。

未經測試，但這應該有所斬獲。

(defn ask [] 
    (println "Please answer \"y\"[yes] or \"n\"[no]:") 
    (.trim (read-line))) 

(defn get-valid-answer [question] 
    (println question) 
    (->> (repeatedly ask) 
     (filter #{"y" "n"}) 
     (first))) 

你也可以定義「問」在let綁定，如果兩個函數你煩惱。