41 lines
889 B
Plaintext
41 lines
889 B
Plaintext
/* <--- bug.bc ---><--- bug.bc ---><--- bug.bc ---><--- bug.bc ---> */
|
|
|
|
/*
|
|
* See the file "signum" for a description and reference for this
|
|
* program.
|
|
*
|
|
* THIS BUG IS *NOT* IN GNU BC!!!
|
|
*
|
|
*/
|
|
|
|
obase=16
|
|
ibase=16
|
|
x=1A8F5C99605AE52 /* dividend */
|
|
y=BB0B404 /* divisor */
|
|
q=245A07AD /* (correct) quotient */
|
|
r=147EB9E /* (correct) remainder */
|
|
"Base 16
|
|
"
|
|
"x = "; x /* output numbers just to be sure... */
|
|
"y = "; y
|
|
"quo = "; q
|
|
"rem = "; r
|
|
"x/y = "; x/y /* watch this result! */
|
|
"x%y = "; x%y /* watch this result! */
|
|
"y*q+r= "; y*q+r /* check quotient & remainder */
|
|
/*
|
|
* Do the same thing in base 10:
|
|
*/
|
|
"
|
|
Base 10
|
|
"
|
|
ibase=A
|
|
obase=10
|
|
"x = "; x /* output numbers just to be sure... */
|
|
"y = "; y
|
|
"q = "; q
|
|
"r = "; r
|
|
"x/y = "; x/y /* watch this result! */
|
|
"x%y = "; x%y /* watch this result! */
|
|
"y*q+r= "; y*q+r /* check quotient & remainder */
|