Select Code to Download

    my $prod = Math::BigInt->new( 1 );
    $prod->bmul( $_ ) for split m{}, $nVal->bstr();

    my $prod = Math::BigInt->new( 1 );
    my %digits;
...
          ? Math::BigInt->new( $_ )->bpow( $digits{ $_ } )
          : $_
          } keys %digits;

use 5.018;
use warnings;
...
        $maxSteps = $actualSteps;
    }
}

Generating 2-digit values ... found 45, took 0.000142s
Trying 2-digit values, at elapsed time 0.000142s
...
        
Total elapsed time 11.593337s

Generating 26-digit values ... found 18156204, took 4m 56.352544s
Trying 26-digit values, at elapsed time 4m 56.352544s
...
                           
Total elapsed time 8h 55m 47.367434s