Help for this page

Select Code to Download


  1. or download this
    use strict;
use Algorithm::Loops qw( NextPermute );
...
for my $len ( 1..@digs ) {
    Biggest( $len, @map{ @digs } );
}
  2. or download this
    f
7e
...
fedcba1932547
fedcb97a645183
fedcba384952716
  3. or download this
    use strict;
use Algorithm::Loops qw( NextPermute );
...
    Biggest( $len, @map{ @five } )   if  $len <= @five;
    print "\n";
}