Select Code to Download

#! perl -slw
use strict;
...
  { A => 0, B => 1, C => 0, D => 0 },
  { A => 0, B => 0.25, C => 0.5, D => 0.25 },
]

#! perl -slw
use strict;
...
 3      0.25    0.50    0.25    0.00
 4      0.00    1.00    0.00    0.00
 5      0.00    0.25    0.50    0.25

#! perl -slw
use strict;
...
 5      0.00    0.25    0.50    0.25    0.00    0.00
 6      0.00    0.00    0.00    0.00    0.00    0.25