xref: /freebsd-src/contrib/bc/tests/bc/scripts/root.bc (revision 8c48f4c5377ddc3dc55388f181f23111145f7099)
1*8c48f4c5SStefan Eßerscale = 30
2*8c48f4c5SStefan Eßer
3*8c48f4c5SStefan Eßers = 1 >> 1
4*8c48f4c5SStefan Eßer
5*8c48f4c5SStefan Eßerfor (i = 0; i < 100; ++i)
6*8c48f4c5SStefan Eßer{
7*8c48f4c5SStefan Eßer	cbrt(s)
8*8c48f4c5SStefan Eßer	s >>= 1
9*8c48f4c5SStefan Eßer}
10*8c48f4c5SStefan Eßer
11*8c48f4c5SStefan Eßers = 1 >> 1
12*8c48f4c5SStefan Eßer
13*8c48f4c5SStefan Eßerfor (i = 0; i < 155; ++i)
14*8c48f4c5SStefan Eßer{
15*8c48f4c5SStefan Eßer	root(s, 5)
16*8c48f4c5SStefan Eßer	s >>= 1
17*8c48f4c5SStefan Eßer}
18*8c48f4c5SStefan Eßer
19*8c48f4c5SStefan Eßerhalt
20