contrib/bc/Test/sqrt.b

   1 scale = 5
   2 for (a=1; a<500; a++) r=sqrt(a)
   3 r
   4 scale = 10
   5 for (a=1; a<500; a++) r=sqrt(a)
   6 r
   7 scale = 25
   8 for (a=1; a<500; a++) r=sqrt(a)
   9 r
  10 scale = 40
  11 for (a=1; a<500; a++) r=sqrt(a)
  12 r
  13 quit