🚀 go-pugleaf

On 2011-01-19, Maciej Misiak <grizzley@poczta.onet.pl> wrote:
> Help.
>
> #!perl -l
>
> use bigint;
>
> ($x,$y)=split/ /, "26315789473684210 5";
> ($l,$m)=($y.$x,$x.$y);
> $xx=$l/$m;
> print$l,' ', $m,' ',$xx, ' ', $xx*$m, ' ', $xx*$m-$l;
> die if $xx*$m!=$l;
>
>
> Ja mam w wyniku die, choć nie powinienem:
> 526315789473684210 263157894736842105 2 5.26315789473684e+017 64
> Died at p168test.pl line 9.

No też bym się czegoś innego spodziewał. Przepisałem twój skrypt na
nieco bardziej widoczny:

#v+
#!perl -l

use bigint;

my ($x, $y) = split / /, "26315789473684210 5";
my ($l, $m) = ($y . $x, $x . $y);

print "L = ", $l;
print "M = ", $m;

my $xx = $l / $m;
print "F (= L/M) = ", $xx;
print "F * M = ", $xx * $m;
print "F * M - L (=~ 0) = ", $xx * $m - $l;
#v-

Output:
#v+
L = 526315789473684210
M = 263157894736842105
F (= L/M) = 2
F * M = 5.26315789473684e+17
F * M - L (=~ 0) = 64
#v-

Czyli z jakiegoś powodu "$xx * $m" jest zamieniane na floating point.

#v+
print "F * M = ", Math::BigInt->bmul($xx, $m);
print "F * M - L (=~ 0) = ", Math::BigInt->bmul($xx, $m) - $l;
#v-
To odpowiednio wypisuje:
#v+
F * M = 526315789473684210
F * M - L (=~ 0) = 0
#v-

Strzał prawie w ciemno: a na pewno $l i $m są typu Math::BigInt?
#v+
#!perl -l

use bigint;

my ($x, $y) = split / /, "26315789473684210 5";
my ($l, $m) = ($y . $x, $x . $y);

print $l->isa("Math::BigInt");
print $m->isa("Math::BigInt");
#v-

Bingo!

#v+
Can't call method "isa" without a package or object reference at ./test.pl line 8.
#v-

Znaczy: póki $l i $m są stringami, nie mogą być podmiotem operacji,
które wykonuje `use bigint'. Zamiana $l i $m na na-pewno-liczby pomaga:

#v+
#!perl -l

use bigint;

my ($x, $y) = split / /, "26315789473684210 5";
my ($l, $m) = ($y . $x, $x . $y);
$l += 0;
$m += 0;

my $xx = $l / $m;

die if $xx * $m != $l;
print "równe!";
#v-

-- 
Secunia non olet.
Stanislaw Klekot