Definir funciones en Clojure

Definir una función

La sintaxis  es:

(defn nombreFunción [param1, param2,paramN]
    ;; cuerpo de la función
)

Las funciones pueden o no devolver un valor. Pueden o no tener argumentos.


;;mostrar un mensaje, no devuelve ningún valor
(defn mensaje
    (println "Este es un simple mensaje")
)

;;sumar dos números, devuelve el resultado
(defn suma [x1, x2]
    (+ x1 x2)
)

Invocamos las funciones:

(mensaje )
 (suma 23 45);;suma: 68


Ejemplo. Obtener la talla ideal de una persona con peso igual a 74.8 kg y un índice de masa corporal de 18.0.

Fórmulas:

imc(índice de masa corporal)=peso/(talla*talla)
peso=imc*(talla*talla)
(talla*talla)=peso/imc

indice.clj
;;defino las funciones
(defn obtenerImc [p,t]
  (/ p (* t t)))


(defn obtenerPeso [t,i]
  (* i (* t t)))

(defn obtenerTalla [p,i]
  (Math/sqrt (/ p i)))

;;defino dos variables: peso e imc
(def peso 74.8)
(def imc 18.0)

(try
  (println "talla ideal:" (obtenerTalla peso imc))
 (catch Exception e (str "error: " (.getMessage e)))
)

Resultado:

talla ideal:  2.04