Factorisation formel.

Es que quelqu'un saurais comment on peut capturer le facteur commun d'une liste formel.
Par exemple {k*a,k*b,k*7} renvoi k
?
D’avance merci.
Par exemple {k*a,k*b,k*7} renvoi k

D’avance merci.
News, programmes, tutoriaux, forum sur les calculatrices TI, Casio, NumWorks... !
https://tiplanet.org/forum/
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