for my $p (0..15, 100) {
    for my $n (0 .. 15, 100) {
        next unless $p+$n;
        my $mult = 10 - ($p+$n) > 0 ? 10 - ($p+$n) : 10;
        print(10 - ($mult * (1 - abs($p-$n)/($p+$n))),
              " $p $n $mult\n");
    }
}