PPCM en Scheme (Lisp)

Marsh Posté le 19-09-2004 à 21:26:32

voila jviens de faire ce code pour déterminer le plus petit commun multiple de 2 nombres

ca semble fonctionner pour plusieurs cas, mais ca ne fonctionne pas si je passe 42 et 30 par exemple, ca semble tourner en boucle

pourtant ca devrait donner 210 assez rapidement, et je vois pas trop pourquoi ca fonctionne pas

Code :

(define (ppcm n1 n2)
(define (iter x y)
(cond ((= x y) x)
((> x y) (iter x (+ y y)))
((< x y) (iter (+ x x) y))))
(cond ((= n1 0) "impossible" )
((= n2 0) "impossible" )
((< n1 0) (ppcm (- n1) n2))
((< n2 0) (ppcm n1 (- n2)))
(else
(iter n1 n2))))

Marsh Posté le 19-09-2004 à 21:26:32

Marsh Posté le 19-09-2004 à 21:39:13

c'est on algo qui est pas bon je pense

cela dit je suis incapable de m'en souvenir, le pgcd et comment calculer ensuite le ppcm, ça oui

Marsh Posté le 19-09-2004 à 21:47:02

bin jcrois que ca revient pas mal à ca (sauf en récursif)

tant que x != y
si x > y
y += y
si x < y
x += x

si on test sur papier pour le cas 42 et 30

42 30
42 60
84 60
84 90
126 90
126 120
126 150
168 150
168 180
210 180
210 210

ca semble fonctionner

Marsh Posté le 19-09-2004 à 21:50:13

euh si on suit ton algo, à chaque pas, x ou y est doublé

dès la 4ème ligne, ça marche pu ton truc ... fait à partir du pgcd

Marsh Posté le 19-09-2004 à 21:51:16

Taz a écrit :

euh si on suit ton algo, à chaque pas, x ou y est doublé

dès la 4ème ligne, ça marche pu ton truc ... fait à partir du pgcd

ah putin faut j'additionne n1 ou n2, quel con je suis

merci pour ton oeil de lynx

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *