Pytanie operatora modulo Perl

Question

Dlaczego pierwszy przykład wyświetla niewłaściwy wynik?

perl -le 'print $x = 100*1.15 % 5' 
4 
perl -le 'print $x = 1000*1.15 % 5' 
0 

Answer 1

Dzieje się tak z powodu arytmetyki zmiennoprzecinkowej.

print $x = int(100*1.15); 

Daje 114.

Answer 2

zaokrąglenia. Należy pamiętać, że komputery nie mogą przedstawiać rzeczywistych miejsc dziesiętnych doskonale - są przybliżone. Na moim komputerze perl -le 'print $x = (100*1.15)-115' daje wynik -1.4210854715202e-14, co oznacza, że ​​100*1.15 jest prawie, ale nie całkiem, 115.