freebsd-nq/contrib/bc/Test/sqrt1.b

14 lines
157 B
Brainfuck
Raw Normal View History

1998-04-29 21:53:01 +00:00
for (j=0; j<10; j++) {
a = .9;
b = .9+j;
scale = 2;
for (i=0; i<90; i++) {
scale += 1;
a /= 10;
b += a;
x = sqrt(b);
}
x;
}
quit