Perl 모듈러스 연산자 질문

Question

첫 번째 예제가 잘못된 결과를 인쇄하는 이유는 무엇입니까?

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

Answer 1

부동 소수점 연산 때문입니다.

print $x = int(100*1.15); 

는 당신에게 114

Answer 2

반올림을 제공합니다. 컴퓨터는 실제 소수 자리를 완벽하게 표현할 수 없으므로 대략적인 수치입니다. 내 컴퓨터에서 perl -le 'print $x = (100*1.15)-115'은 결과가 -1.4210854715202e-14인데, 이는 100*1.15이 거의 비슷하지만 115는 아님을 의미합니다.