Blame Test/sqrt1.b

Packit 70b277
for (j=0; j<10; j++) {
Packit 70b277
  a = .9;
Packit 70b277
  b = .9+j;
Packit 70b277
  scale = 2;
Packit 70b277
  for (i=0; i<90; i++) {
Packit 70b277
    scale += 1;
Packit 70b277
    a /= 10;
Packit 70b277
    b += a;
Packit 70b277
    x = sqrt(b);
Packit 70b277
  }
Packit 70b277
  x;
Packit 70b277
}
Packit 70b277
quit