Alquimista de código

"Cuando el alumno está listo, aparece el maestro, o al menos eso dicen" En el post anterior vimos un ejemplo del uso de JOptionPane en código Clojure, ahora veremos como introducir datos usando el método showInputDialog. 1. Introduciendo un dato tipo 'String', el método no necesita  argumento. ;;importar librería ( import '(javax.swing JOptionPane));' ;;defino el método introduceDato ( defn introduceDato []     (JOptionPane/ showInputDialog          ( str "Introduce una cadena:" )      ) ) ;;lo usamos así ( def entrada (introduceDato)) ;;imprimimos (JOptionPane/ showMessageDialog nil,    ( str "Cadena: " entrada) ) Resultado: 2. Método que decide si un número es menor a 100 ( import '(javax.swing JOptionPane));' ( defn esMenor? [n]   ( if (< n 100) (JOptionPane/ showMessageDialog nil,       ( str n " es menor a 100" ) )  (JOptionPane/ showMessageDialog nil,       ( str n&quo