[LISP] Pgcd

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 ^^

4 réponses

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

      Pour la programmation formate bien le texte le Visual Lisp aide bien "VLISP" fait une table de variable parce que la variable "t" , pour ma part, je ne vois pas à quoi cela te sers.....

      A laisser votre OS en Administrateur
      vous en perdez vos cheveux :p
      0
      1. voici une série d'exercices de lisp avec les solutions
        http://annaba.me/cours-et-exercices-de-calcul-formel-lisp/
        0
        1. (defun pgcd (a b)
          ( if (null a) b
          (null b) a
          (if (> a b)(pgcd (( - a b)b))
          (pgcd((-ba) a)))))
          0