Lines Matching refs:ADB
31 my ($A,$B,$As,$Bs,$ADB,$AMB,$la,$lb);
61 ($ADB,$AMB) = $A->copy()->bdiv($B);
62 # print "# ($A / $B, $A % $B ) = $ADB $AMB\n";
65 "# tried $ADB * $B + $two*$AMB - $AMB\n"
66 unless ok ($ADB*$B+$two*$AMB-$AMB,$As);
67 print "# seed: $seed, \$ADB * \$B / \$B = ", $ADB * $B / $B, " != $ADB (\$B=$B)\n"
68 unless ok ($ADB*$B/$B,$ADB);
71 ($ADB,$AMB) = $B->copy()->bdiv($A);
72 #print "check: $ADB $AMB";
74 "# tried $ADB * $A + $two*$AMB - $AMB\n"
75 unless ok ($ADB*$A+$two*$AMB-$AMB,$Bs);
76 # print " +$two * $AMB = ",$ADB * $A + $two * $AMB,"\n";
77 # print " -$AMB = ",$ADB * $A + $two * $AMB - $AMB,"\n";
78 print "# seed $seed, \$ADB * \$A / \$A = ", $ADB * $A / $A, " != $ADB (\$A=$A)\n"
79 unless ok ($ADB*$A/$A,$ADB);