Bonjour,
Je souhaite faire un programme calculant le PPCM d'une liste de nombres. (Il existe déjà une fonction PPCM dans Mathématica mais je souhaite en faire une moi-même.)
J'ai réussi à programmer déjà pour le PPCM de deux nombres.
J'ai appelé la fonction associée à ce dernier programme ppcm0.
Je vourais donc utiliser la fonction ppcm0 dans mon programme pour calculer le PPCM de plusieurs entiers (liste).
Voici ce que j'ai écrit: L = {2, 5, 8, 9, 12}
n = Length[L]
ppcm[L_] :=
Do[L[[k + 1]] = ppcm0[L[[k]], L[[k + 1]]];
Delete[L, 1], {k, 1, n - 1}]; ppcm[L]
Le message d'erreur est : Set::setps: {2,5,8,9,12} in the part assignment is not a symbol. >>
Le résultat attendu est 144.
Merci de votre aide !
-----