Domanda operatore modulo Perl

Question

Perché il primo esempio stampa un risultato errato?

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

Answer 1

È a causa dell'aritmetica in virgola mobile.

print $x = int(100*1.15); 

Ti dà 114.

Answer 2

arrotondamento. Tieni presente che i computer non possono rappresentare perfettamente le posizioni decimali effettive - si avvicinano. Sul mio computer, perl -le 'print $x = (100*1.15)-115' dà il risultato -1.4210854715202e-14, il che significa che 100*1.15 è quasi, ma non del tutto, 115.