contrib/bc/Test/sqrt1.b

   1 for (j=0; j<10; j++) {
   2   a = .9;
   3   b = .9+j;
   4   scale = 2;
   5   for (i=0; i<90; i++) {
   6     scale += 1;
   7     a /= 10;
   8     b += a;
   9     x = sqrt(b);
  10   }
  11   x;
  12 }
  13 quit