freebsd-skq/contrib/bc/Test/sqrt2.b

11 lines
179 B
Brainfuck
Raw Normal View History

1998-04-29 21:53:01 +00:00
scale = 20
for (a=1; a<5000; a += 1) r=sqrt(a)
r
for (a=1; a<50000; a += 100) r=sqrt(a)
r
for (a=1; a<500000; a+=1000) r=sqrt(a)
r
for (a=1; a<5000000; a+=10000) r=sqrt(a)
r
quit