LISP - If Construct

los ifA la macro le sigue una cláusula de prueba que se evalúa en to nil. Si la cláusula de prueba se evalúa a la t, entonces se ejecuta la acción que sigue a la cláusula de prueba. Si es nulo, se evalúa la siguiente cláusula.

Sintaxis para if -

(if (test-clause) (action1) (action2))

Ejemplo 1

Cree un nuevo archivo de código fuente llamado main.lisp y escriba el siguiente código en él.

(setq a 10)
(if (> a 20)
   (format t "~% a is less than 20"))
(format t "~% value of a is ~d " a)

Cuando hace clic en el botón Ejecutar, o escribe Ctrl + E, LISP lo ejecuta inmediatamente y el resultado devuelto es:

value of a is 10

Ejemplo 2

los if La cláusula puede ir seguida de un opcional then cláusula.

Cree un nuevo archivo de código fuente llamado main.lisp y escriba el siguiente código en él.

(setq a 10)
(if (> a 20)
   then (format t "~% a is less than 20"))
(format t "~% value of a is ~d " a)

Cuando hace clic en el botón Ejecutar, o escribe Ctrl + E, LISP lo ejecuta inmediatamente y el resultado devuelto es:

a is less than 20
value of a is 10

Ejemplo 3

También puede crear una declaración de tipo if-then-else utilizando la cláusula if.

Cree un nuevo archivo de código fuente llamado main.lisp y escriba el siguiente código en él.

(setq a 100)
(if (> a 20)
   (format t "~% a is greater than 20") 
   (format t "~% a is less than 20"))
(format t "~% value of a is ~d " a)

Cuando hace clic en el botón Ejecutar, o escribe Ctrl + E, LISP lo ejecuta inmediatamente y el resultado devuelto es:

a is greater than 20
value of a is 100