]> CyberLeo.Net >> Repos - FreeBSD/releng/7.2.git/blob - contrib/bc/Test/sqrt2.b
Create releng/7.2 from stable/7 in preparation for 7.2-RELEASE.
[FreeBSD/releng/7.2.git] / 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