onループリークを改善する

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呼び出しをすることを好むだろう。誰もこのシナリオではループリカバリを使用せず、おそらくいくつかの（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))) 

また、2つの関数はあなたを気にすれば、結合letに「尋ねる」を定義できます。