/* <--- 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 */