🚀 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

W dniu 2011-01-19 23:11, Stachu 'Dozzie' K. pisze:
> 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:
>
<....>
>
> 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:

Ach zbawco! Jednak pójdę spać spokojny, że to nie wina Perla :)
Z drugiej strony poburczeć sobie trochę poburczę, bo to bez sensu, że 
wszystkie operacje się zachowują jak przy zwykłych intach, a jedna 
jedyna konwersja ze stringa nie :/ (chyba, że źle interpretuję miejsce 
"błędu")
Co ciekawe, wystarczyło skonwertować na siłę tylko licznik albo 
mianownik, niekoniecznie oba.

Dzięki za analizę!

-- 
grizzley

On 2011-01-19, Maciej Misiak <grizzley@poczta.onet.pl> wrote:
> Ach zbawco! Jednak pójdę spać spokojny, że to nie wina Perla :)
[...]
> Co ciekawe, wystarczyło skonwertować na siłę tylko licznik albo 
> mianownik, niekoniecznie oba.
>
> Dzięki za analizę!

Jak to mówią, co dwie głowy to nie kapusta ;)

-- 
Secunia non olet.
Stanislaw Klekot