LISP...

zaki -  
 ouss -
bonjour a tous ...
Je ne pouvais pas résoudre le problème à ce sujet .... si vous pouvez ...aidez moi...

- Ecrire une fonction en LISP qui calcule le PGCD de deux entiers.
- Ecrire une fonction en LISP qui calcule le nombre d'occurrences d'un atome x dans une liste.

1 réponse

ouss
 
PGCD:


(defun pgcd (N P) (cond
((< N P) (pgcd P N))
((eq N P) N)
((eq P 0) N)
(t (pgcd (- N P) P))))
0