Select Code to Download

#!/usr/bin/env perl -l

...
    my ($x, $y) = @_;
    return abs($x - $y);
}

All records:  42 17 13 10 9 8 7 6 5 4 3 2 1 0
Group:        42
...
Group:        9 8 7 6
Group:        5 4 3 2
Group:        1 0