Mejorando en recurrencia de bucle

Question

Escribí una función que intenta obtener una respuesta y/n (sí/no) de un usuario de forma interactiva. Pone a prueba si la respuesta es válida y si no es así, solicita al usuario una vez más:

(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)))))) 

La versión anterior con bucle se repiten hace el trabajo pero no tengo sensación de que tiene que haber una manera mejor (más funcional) a hacer esto. Preferiría tener la llamada de línea de lectura hecha solo una vez. ¿Podría alguien sugerir una versión alternativa que no utiliza loop-recur en este escenario, pero que posiblemente utiliza alguna macro (Clojure builtin) en su lugar?

Answer 1

Piense en un niño pequeño que hace la misma pregunta interminablemente hasta que obtenga una respuesta satisfactoria, luego haga lo mismo en el código. Es decir, tome la primera respuesta válida de un flujo interminable de preguntas.

No probado, pero esto debería hacer el truco.

(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))) 

También podría definir 'pedir' en un let de unión, si dos funciones le molesta.