Tema Lisp - Dpto. Ciencias de la Computación e Inteligencia Artificial.

Recursión en Lisp
1
Recursión cruzada: funciones par-p e impar-p
;;; (PAR-P N), (IMPAR-P N)
;;; > (par-p 4)
;;; T
;;; > (impar-p 10)
;;; NIL
(defun par-p (n)
(cond ((= n 0) t)
((= n 1) nil)
(t (impar-p (- n 1)))))
(defun impar-p (n)
(cond ((= n 0) nil)
((= n 1) t)
(t (par-p (- n 1)))))
IA-I 2003–2004 CcIa Introducción a Lisp Lisp.29