idiv2(a,b):={ local (q:=0),(r:=a); if (b!=0) { q:=iquo(a,b); r:=irem(a,b); } return [q,r]; };
Voici le programme de la même fonction mais avec les variables locales internes au bloc du if :
idiv2(a,b):={ if (b==0) {return [b,a];} if (b!=0) { local q,r; q:=iquo(a,b); r:=irem(a,b); return [q,r]; } };ou encore avec les variables locales internes au bloc du else :
idiv2(a,b):={ if (b==0) {return [b,a];} else { local q,r; q:=iquo(a,b); r:=irem(a,b); return [q,r]; } };