Par exemple {k*a,k*b,k*7} renvoi k

D’avance merci.
Define listfact(list)=
Func
:Local factc,i
:factc:=list[1]
:For i,1,dim(list)
: factc:=polyGcd(factc,list[i])
: Disp factc
:EndFor
:Return factc
:EndFunc
Utilisateurs parcourant ce forum: ClaudeBot [spider] et 1 invité