PPCM en Scheme (Lisp)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : PPCM en Scheme (Lisp)

burgergold

5$? va chez l'diable!

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

Publicité

Taz

bisounours-codeur

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

burgergold

5$? va chez l'diable!

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

Taz

bisounours-codeur

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

burgergold

5$? va chez l'diable!

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

FORUM HardWare.fr

Programmation

Divers

PPCM en Scheme (Lisp)

Sujets relatifs
Scheme. Affichage inattendu d'une apostrophe.	[LISP] j arrive pas a tranformer un résultat en chaine de caractère
urgent ! qsort en lisp	une FND en une FNC lisp
[Scheme] GUI : tout intégrer dans un let ? des problèmes s'ensuivent..	[Scheme] let* avec canvas% : quand get-client-size disponible ?
[lisp] petite question sur implodech	[scheme] somme des elements d'une liste, qu'est ce qui va pas??
[C++] Utilisation de Scheme au sein d'une application C++	[Scheme] 2 tests identiques à la suite : comment faire mieux ?
Plus de sujets relatifs à : PPCM en Scheme (Lisp)

Page générée en 0.030 secondes