in reply to Wrong calculations in for loop

Luckily you can run the script with only very small changes under Perl 6, and it produces the output you expect: 

use v6;
my $zmax = 60;    # Maximum depth in your model
my $dz = 0.05;    # Grid spacing in z-direction

loop (my $i=0; $i <= $zmax; $i = $i+$dz) {
    say $i;
}

[download]

produces 

...
3.6
3.65
3.7
3.75
...
59.9
59.95
60

[download]

It accomplishes that magic by doing math with rationals (stored as integer numerator and denominator) by default.

Perl 6 - the future is here, just unevenly distributed

Replies are listed 'Best First'.
Re^2: Wrong calculations in for loop
by Athanasius (Archbishop) on Aug 22, 2012 at 13:22 UTC

    OK, but getting the same result in Perl 5 is almost as easy:

    #! perl
use strict;
use warnings;

my $zmax = 60;      # Maximum depth in your model
my $dz   =  0.05;   # Grid spacing in z-direction

print +($_ * $dz), "\n" for (0 .. int(($zmax / 0.05) + 0.5));

    [download]

    :-)

    Athanasius <°(((>< contra mundum

[reply]
[d/l]

      Or even simpler, just change the print to printf 

      my $zmax = 60;    # Maximum depth in your model
my $dz = 0.05;    # Grid spacing in z-direction

for (my $i=0; $i <= $zmax; $i = $i+$dz) {
   printf("%.2f\n", $i);
}

      [download]

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom