my $OldSum = 1.0; my $sub = 0.5; while (1) { print "Sum: $OldSum\n"; $NewSum = $OldSum - $sub; ($NewSum == $OldSum) and exit(0); $OldSum = $NewSum; $sub/= 2; } [download]
www.com | www.net | www.org
No recent polls found