PERL NEUMI POCITAT!!!

[Marian Cavojsky]

uhlar na fantomas.sk wrote:
 : Pavel Kankovsky <peak na argo.troja.mff.cuni.cz> wrote:

 : ->> jeste mi to dela dalsi zajimave veci. Mam program na vypocet vycetky a
 : ->> denni trzby a ten mi dnes zahlasil:

 : -> Opakujte po mne: kdyz pocitam penize, tak na to nepouzivam typy s plovouci : -> desetinou carkou. Nikdy. Jak uz bylo doporucovano, nejlepsi je to pocitat
 : -> treba v (celych) halerich. Kdyz jde o velke castky, je take dobre
 : -> kontrolovat si preteceni.

 : dofrasa, ked to ratam v normalnom 32bitovom znamienkovom cisle a objavi sa
 : suma vacsia ako 2147483647 halierov (teda 21 474 836.47 koruny teda slabych
 : 21 milionov) tak somv pruseri ?

 : na slovensku uz hadam 5 halierov ani neexistuje => mozno by stacilo ratat v
 : desiatkach halierov... tym sa to dvihne na 214 melonov ...

Ak Vas to potesi urobil som taky maly pokus:
[cavo na cavo]$ perl -e "print 2147483643 + 2147483;" 
2149631126[cavo na cavo]$ perl -e 'print 2147483643 + 2147483,"\n";'
2149631126
[cavo na cavo]$ perl -e 'print 2147483647 + 2147483647,"\n";'
4294967294
[cavo na cavo]$ perl -e 'print 10000000000 + 10000000000,"\n";'
20000000000
[cavo na cavo]$ perl -e 'print 100000000000 + 100000000000,"\n";'
200000000000
[cavo na cavo]$ perl -e 'print 1000000000000 + 1000000000000,"\n";'
2000000000000
[cavo na cavo]$ perl -e 'print 10000000000000 + 10000000000000,"\n";'
20000000000000
[cavo na cavo]$ perl -e 'print 100000000000000 + 100000000000000,"\n";'
200000000000000
[cavo na cavo]$ perl -e 'print 1000000000000000 + 1000000000000000,"\n";'
2e+15

Mam pocit, ze to posledne cislo, je celkom slusne a tolko by som chcel mat
na ucte.

(Sice radsej ani nie, asi by na mna malo prilis vela ludi zalusk a ja mam
rad pokojnejsi zivot.)

-- 
Marian Cavojsky
cavojsky @ soria-grey.sk