Select Code to Download

my $d2 = $s3 - $s2 + ($m3 - $m2) / 1_000_000;

(my $d2 = (($s3 - $s2) + (($m3 - $m2) / 1000000)));

c:\test>junk2 -ITERS=1e6
And: 0.000000300  Mod: 0.000000372
...

c:\test>junk2 -ITERS=100e6
And: 0.000000299  Mod: 0.000000338

c:\test>junk2 -ITERS=1e6
And: 0.000000403  Mod: 0.000000347
...

c:\test>junk2 -ITERS=10e6
And: 0.000000384  Mod: 0.000000338

c:\test>junk2 -ITERS=1e6
And: 0.000000277  Mod: 0.000000286
...

c:\test>junk2 -ITERS=100e6
And: 0.000000250  Mod: 0.000000277

#! perl -slw
use strict;
...
my $d2 = ( $s3 - $s2 ) / $ITERS;

printf "And: %.9f  Mod: %.9f\n", $d1, $d2;