Dotaz: Perl hadanka (na dobru noc)

[lm]

Kde je podla Vas chyba?

#!/usr/bin/perl
#

my $x = 0;

print "== first loop ==\n";
for ($x = 2.7; $x <= 3.2; $x += 0.1) {
	printf("%f\t%d\n",$x,(3 < $x));
}

print "== second loop ==\n";
for (2.7, 2.8, 2.9, 3, 3.1, 3.2) {
	$x = $_;
	printf("%f\t%d\n",$x,(3 < $x));
}

print "== wtf loop ==\n";
for ($x = 2.8; $x <= 3.2; $x += 0.1) {
	printf("%f\t%d\n",$x,(3 < $x));
}

Odpovědi

[Marek 'Maxicom' Zelenka]

$x += 0.1 vs $x ++ 0.1

?

[Marek 'Maxicom' Zelenka]

už mlčim , sorry

[Luboš Doležel (Doli)]

Nepřenost výpočtů u CPU?

[lm]

moze byt, ale SPARC, Alpha, IA-64 sa potom mylia rovnako ako x86 :)

[Luboš Doležel (Doli)]

V C ten první cyklus vypíše i 3.2, pokud použiju jako typ float. Pokud double, je to jako v Perlu (takže Perl taky používá double).

Důvodem je tohle: 3.2000000000000006217248938

[pht]

na tom nevidim nic spatneho, protoze to neni vlastnost konkretniho CPU, ale konkretni reprezentace cisel. a ta je vice mene standardizovana.

[pht]

a co to jako dela chybne? od 2.7 to napocita do 3.2 a od 2.8 ne? tak to je prvni vec ktera je napsana v kazdy knize. nikdy nepouzivat rovnitko u pohyblive carky! porovnani floatu se delaji zasadne takto:

if (abs($x - 3.2) < 1.0E-5) {...}

[cronin]

Zaujimave, akurad predvcerom som narazil na toto.

[pht]

nebo si precist knutha