Como calcular o volume de chuvas em LISP - Fórmula do cálculo do volume de chuvas em LISP

; Este é o programa principal
(defun Principal()
  (let ((altura_lamina)(volume_chuva))  
    ; vamos pedir para o usuário informar a altura da lâmina
    ; de água em milímetros
    (princ "Altura da lâmina de água em milímetros: ")
    ; talvez o seu compilador não precise disso
    (force-output)
    (setq altura_lamina (read))
	
    ; o primeiro passo é converter os milímetros da lâmina de água
    ; para metros
    (setq altura_lamina (/ altura_lamina 1000.0))

    ; agora que já temos a altura da lâmina em metros, vamos multiplicar
    ; pela base (1 metro quadrado) para obtermos o volume da chuva por
    ; metro quadrado
    (setq volume_chuva (* (* altura_lamina 1.00) 1000.0))

    ; vamos mostrar o resultado
    (format t "O volume da chuva é ~F litros para cada metro quadrado"
       volume_chuva)
  )
)
 
; Auto-executa a função Principal()
(Principal)