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
Users browsing this forum: ClaudeBot [spider] and 9 guests