Ejercicio_2.lsp

;	EJERCICIOS 2

;	2.4
;	Escribir una función recursiva que compruebe si un número es primo.
; _________________________________________________________________________
(defun uno(Num Div)
	(cond
		((= Div 1) t)
		( (not (= Div 1))
			(if ( = (mod Num Div) 0)  nil ( uno Num (- Div 1)) )
		)
	)
)

(defun EsPrimo (Num)
	(cond
		( (= Num 1) (uno Num Num))
		(t
			(uno Num (- Num 1))
		)
	)
)