gistfile1.c

/* Version 1 */
f0 = A4*X0*X0*X0*X0 + A3*X0*X0*X0 + A2*X0*X0 + A1*X0 + A0;

/* Version 2 */

a[4]=A4; a[3]=A3; a[2]=A2;
a[1]=A1; a[0]=A0;

for(i=0;i<5;i++){
  b[i]=0;
}

b[0]=a[0];
for(k=1;k<5;k++){
  for(i=0;i<k;i++){
    b[k]=a[k]*X0;
    a[k]=b[k];

  }
}
f0=b[4]+b[3]+b[2]+b[1]+b[0];