demoAllocation (
"Distribution: skewed: Nasty mark II (Grandfather)",
{a => 30, b => 20, c => 10},
{'1.0' => 30, '2.0' => 12, '4.0' => 6, '8.0' => 12}
);
Prints:
Distribution: skewed: Nasty mark II (Grandfather)
a: 22 @ $1.00
8 @ $8.00
bucket avg: $2.87, deviation: $-0.033
b: 8 @ $1.00
6 @ $2.00
2 @ $4.00
4 @ $8.00
bucket avg: $3.00, deviation: $0.100
c: 6 @ $2.00
4 @ $4.00
bucket avg: $2.80, deviation: $-0.100
However, allocating 1/2 of each parcel to a, 1/3 to b and 1/6 to c gives a perfect result.
Perl's payment curve coincides with its learning curve.