Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    
    pp gen( { A => 4, B => 2, C => 3, D => 1 } );
    pp gen( { A => 5, B => 4, C => 3, D => 2, E => 1 } );
    
  2. or download this
    C:\test>1030688.pl
    ["A", "C", "B", "A", "D", "C", "B", "A", "C", "A"]
    ["A", "B", "C", "A", "D", "B", "C", "E", "A", "B", "D", "C", "A", "B",
    + "A"]