serie de ejercicios en prolog

____________________________________________

(defun ncifra (n)
  (setq suma 0)
  (while (> n 0)
    (setq r( mod n 10))
    (setq n( / n 10 ))
    (setq suma( + suma r))
  )
)


(ncifra 45)
____________________________________________


(defun par(a)
 (setq r (mod a 2))
  (if (= r 0) 'es_par  'es_impar)
)

(par 6)

programacion en prolog suma de lista de numeros con recursividad

_____________________________________________

(defun lista (a b c d e)
(setq li (list a b c d e))
(setq suma 0)
(setq i 0)
(while (< i 5)
(setq  val (nth i li)
)

(setq i (+ i 1))
(setq suma(+ suma val))
)
____________________________________________