Clojure for Beginner (3)

En esta serie de post de Clojure for Beginners veremos más ejemplos.

La interoperabilidad es uno de los temas que más le interesan a los programadores. Los programadores Java verán que no es una promesa, sino más bien una realidad. Clojure en verdad lo permite. Basta ver un ejemplo.

Ejemplo 1. Creamos un programa para obtener el cuadrado de un número. En este ejemplo la entrada es 12 y el cuadrado de ese número será 144.

(import '(javax.swing JOptionPane));'

(defn introduceDato [s]
  (JOptionPane/showInputDialog
    (str s)
  )
)

(def numero(introduceDato "Introduce numero:"))

;;convertir String a número
(defn String->Number [str]
  (let [n (read-string str)]
       (if (number? n) n nil)))

;;función cuadrado
(defn cuadrado [n]
 (* n n)
)

;;'main' del programa
(try

  (JOptionPane/showMessageDialog nil,
     (str "El numero introducido es: "numero)
  )

  (JOptionPane/showMessageDialog nil,
     (str "Al cuadrado es: "(cuadrado (String->Number numero)))
  )

 
    (catch Exception e 
        (println (str "Ha ocurrido una excepcion: \n\t" (.getMessage e) ))

        (JOptionPane/showMessageDialog nil,
            (str "El error es: "(.getMessage e)))

    )


)

Como podemos ver, hacemos uso de la librería gráfica de Java (javax.swing). Específicamente los cuadros de diálogo de JOptionPane. Algo que en lenguajes dependientes de la JVM como Ceylon es(o era) bastante más complicado.

Ejemplo 2. Creamos un programa para obtener el sistema operativo anfitrión. En el ejemplo se puede ver que el anfitrión es un SO Linux.

(import '(javax.swing JOptionPane));'
;; obtenemos el nombre del SO
(def sistema(. (. System (getProperties)) (get "os.name")))

    (JOptionPane/showMessageDialog nil,
       (str "Estas usando "sistema)
) 

Ejemplo 3. Creamos una ventana (un JFrame) con un sencillo mensaje:

(ns myswingproject.core
  (:import
    [javax.swing SwingUtilities JFrame JLabel]))
 
(defn mi-ventana
  []
 
  (let [my-frame (doto (JFrame. "Ventana Java Swing")
                   (.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE))
        my-label (JLabel. "Hola, usuario")
        content-pane (.getContentPane  my-frame)]
 
    (.add content-pane my-label)
    (.pack my-frame)
    (.setVisible my-frame true)))
 
 
(defn gui []
  (SwingUtilities/invokeLater mi-ventana))
 
(gui)

Este código viene del sitio: https://clojure.tgenedavis.com/2021-04-02/clojure-gui-using-swing/

Además de la interoperabilidad con Java, Clojure también nos permite hacer uso de programación funcional.

$ clj
(def hello (fn [] "Hello world"))
-> #'user/hello
(hello)
-> "Hello world"

Basta con entrar al REPL de Clojure y probar.

$ clj
(defn argcount
  ([] 0)
  ([x] 1)
  ([x y] 2)
  ([x y & more] (+ (argcount x y) (count more))))
-> #'user/argcount
(argcount)
-> 0
(argcount 1)
-> 1
(argcount 1 2)
-> 2
(argcount 1 2 3 4 5)
-> 5

¿Y qué pasa con los Frameworks? ¿Podemos crear sitios web o APIs con este lenguaje? Luminus es un framework que nos permitirá crear aplicaciones web. Para ello deberás tener instalado Leiningen e instalarlo:

$ lein new luminus my-app
$ cd my-app
$ lein run
Started server on port 3000

También existe Pedestal el cual es: un conjunto de bibliotecas que utilizamos para crear servicios y aplicaciones. Se ejecuta en el back-end y puede mostrar páginas HTML completas o manejar solicitudes de API.

También existen otras alternativas como Http-kit o Biffweb, el novedoso Tadam framework y el discreto https://kit-clj.github.io/

Más ejemplos en próxima entregas.

Enlaces:

https://clojure.org/
http://alquimistadecodigo.blogspot.com/2014/01/una-introduccion-clojure.html
http://alquimistadecodigo.blogspot.com/2014/06/definir-funciones-en-clojure.html
https://clojure.org/guides/editors
https://comunidadcityjavamex.blogspot.com/2022/12/clojure-para-programadores-java2.html
https://clojure.tgenedavis.com/2021-04-02/clojure-gui-using-swing/
https://ericnormand.me/mini-guide/what-web-framework-should-i-use-in-clojure
https://www.reddit.com/r/Clojure/comments/vh2k42/what_web_framework_do_you_use/?rdt=57277
https://www.tadam-framework.dev/
https://programadorwebvalencia.com/que-es-tadam-el-nuevo-clojure-web-framework/
https://kit-clj.github.io/