contrib/bc/Test/sqrt2.b

   1 scale = 20
   2 for (a=1; a<5000; a += 1) r=sqrt(a)
   3 r
   4 for (a=1; a<50000; a += 100) r=sqrt(a)
   5 r
   6 for (a=1; a<500000; a+=1000) r=sqrt(a)
   7 r
   8 for (a=1; a<5000000; a+=10000) r=sqrt(a)
   9 r
  10 quit