[LISP] Pgcd

[k_you]

Kikou all )
voila je voudrais faire un programme donnant le pgcd de 2 nombres en Lisp,
tel que:
(pgcd 15 20)
->5
mais je n'arrive pas du tout à le faire, need help please ^^

 

[k_you]

j'ais pense à ca mais ca ne marche pas, adez moi svp:
(defun pgcd (a b)
(cond
((< a b) (pgcd a (-b a)))
((> a b) (pgcd (-a b) b))
(t a)))

 

[k_you]

personne ne connait la reponse

 

[ZeT]

dans le cas pgcd(15 20) ton algo marche non ?