Cómo string emitido a booleano en Clojure

Question

He siguientes declaraciones

(if "true" (println "working") (println "not working")) 

resultado es - trabajando

(if "false" (println "working") (println "not working")) 

resultado es - trabajando

Tanto el resultado de tiempo es el mismo, ¿Cómo puede Yo hechizo correctamente string a boolean en clojure.

Answer 1

Usando read-string

(if (read-string "false") (println "working") (println "not working")) 

Answer 2

Se puede crear un nuevo objeto booleano de Java, que tiene un método que acepta una cadena. Si luego usa la función booleana de clojure, puede hacer que funcione en clojure.

(boolean (Boolean/valueOf "true")) ;;true 
(boolean (Boolean/valueOf "false")) ;;false 

Answer 3

Si tiene que tratar a las cadenas como booleanos, read-string es una opción razonable. Pero si usted sabe la entrada será un valor lógico bien formada (es decir, ya sea "verdadero" o "falso"), sólo puede utilizar utilizar el conjunto #{"true"} como una función:

(def truthy? #{"true"}) 
(if (truthy? x) 
    ...) 

O, si se quiere para el tratamiento de cualquier cadena, pero "falso" como Truthy (más o menos la forma en Clojure ve truthiness en nada), puede utilizar (complement #{"false"}):

(def truthy? (complement #{"false"})) 
(if (truthy? x) 
    ...) 

Si usted quiere hacer algo tan vil como conversiones débil de tipificación de PHP, usted tiene que escribir las reglas usted mismo.

Answer 4

Siempre debe considerar envolver el código para hacer este tipo de conversión en una función claramente nombrada. Esto le permite ser más descriptivo en su código, y también le permite cambiar la implementación si es necesario en una fecha posterior (por ejemplo, si identifica otras cadenas que también se deben contar como verdaderas).

me gustaría sugerir algo como:

(defn true-string? [s] 
    (= s "true")) 

Aplicando esto a los casos de prueba:

(if (true-string? "true") (println "working") (println "not working")) 
=> working 

(if (true-string? "false") (println "working") (println "not working")) 
=> not working