Select Code to Download

#! perl -slw
use strict;
...
Before: 17000 :    15 After: 17000 :    23
Before: 18000 :    23 After: 18000 :    15
Before: 19000 :    15 After: 19000 :    24

use constant STICK => pack 'C*', 15, map( ($_) x 2, 15 .. 23 ), (24) x
+ 100;
sub stick{
...
    my $q = STICK2->[ 1 + $_[0] / 1000 ];
    return $q < $_[1] ? $_[1] : $q;
}