1
/* <--- bug.bc ---><--- bug.bc ---><--- bug.bc ---><--- bug.bc ---> */
4
* See the file "signum" for a description and reference for this
7
* THIS BUG IS *NOT* IN GNU BC!!!
13
x=1A8F5C99605AE52 /* dividend */
14
y=BB0B404 /* divisor */
15
q=245A07AD /* (correct) quotient */
16
r=147EB9E /* (correct) remainder */
19
"x = "; x /* output numbers just to be sure... */
23
"x/y = "; x/y /* watch this result! */
24
"x%y = "; x%y /* watch this result! */
25
"y*q+r= "; y*q+r /* check quotient & remainder */
27
* Do the same thing in base 10:
34
"x = "; x /* output numbers just to be sure... */
38
"x/y = "; x/y /* watch this result! */
39
"x%y = "; x%y /* watch this result! */
40
"y*q+r= "; y*q+r /* check quotient & remainder */