Select Code to Download

$left_idx++ if $store->[$left_idx] < $start;

#  $left_idx++ if $store->[$left_idx] < $start; #normal
  $left_idx++ if ($store->[$left_idx]+1) < ($start+1); #0.6 bug workar
+ound

1.6     [8]:    0.8     1       1.2     1.4     1.8     2       2.2   
+  2.4     2.6
2.2     [11]:   1.4     1.6     1.8     2       2.4     2.6     2.8   
+  3       3.2
...
16.6    [83]:   15.8    16      16.2    16.4    16.8    17      17.2  
+  17.4    17.6
32.2    [161]:  31.4    31.6    31.8    32      32.4    32.6    32.8  
+  33      33.2
64.4    [322]:  63.6    63.8    64      64.2    64.6    64.8    65    
+  65.2    65.4

  DB<25> x ($store->[3]) == $start
0  ''
...
0  ''
  DB<33> x ($store->[3]+1) == ($start+1)
0  1

#call:
use Spikehisto;
$histo=autocorr([map{$_/5}(0..1000)],2,100,2000); 
print join "\t", grep {$_} @$histo;

#!/usr/bin/perl -w

...
}

1;