Select Code to Download

#!/usr/lib/perl
use strict;
...
    print "Pool @pool sum (added @new): $poolSum\n";
    shift @pool while @indexes && @pool && $pool[0] + $kPoolSpan < $in
+dexes[0];
}

Pool 3 4 sum (added 3 4): 5
Pool 4 6 sum (added 6): 11
Pool 6 7 8 sum (added 7 8): 35
Pool 11 sum (added 11): 45