Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
        return @list[ @position ];
    }
}
  2. or download this
    package Cribbage::Hand;
use strict;
...
7999T300799TT30079TTT3007TTTT300888890128888T300888990088889T300888TT3
+0088999008
8899T300889TT30088TTT300899990128999T300899TT30089TTT3008TTTT3009999T3
+00999TT300
99TTT3009TTTT300TTTTT300
  3. or download this
    #!/usr/bin/perl
use strict;
...
        return @list[ @position ];
    }
}
  4. or download this
    sh-2.04$ time ./example.pl

real    3m43.859s
user    3m12.483s
sys     0m0.062s