xref: /freebsd/contrib/bc/tests/bc/scripts/root.bc (revision 61e21613)
1scale = 30
2
3s = 1 >> 1
4
5for (i = 0; i < 100; ++i)
6{
7	cbrt(s)
8	s >>= 1
9}
10
11s = 1 >> 1
12
13for (i = 0; i < 155; ++i)
14{
15	root(s, 5)
16	s >>= 1
17}
18
19halt
20