Select Code to Download

use warnings;
use strict;
...
    my ($centroid, $testnum) = @_;
    return abs($centroid - $testnum) <= $tolerance;
}

A => [0 1 2 3]
B => [0 1 2 3 4]
...
F => [4 5 6 8]
G => [6 8 10]
H => [8 10]