Largest number divisible by its digits: Difference between revisions

m
→‎Base 16: more efficient tests
m (→‎Base 10: Remove redundant test code, it it reached that line, it was already solved. Steenslag++)
m (→‎Base 16: more efficient tests)
Line 509:
my $test = $num.base(16);
next if index $test, 0; ~~ / 0 /; # skip numbers containing 0
next if $test ~~ / (.)comb.Bag.values.*$0max /;> 1 # skip numbers with non unique digits
 
say "Found $test"; # Found a solution, display it
2,392

edits