🚀 go-pugleaf

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