Largest number divisible by its digits: Difference between revisions

m
→‎base 16: aligned a statement.
(Removed the conversion to string to extract digits. Replaced hashset by a simple set, a lot more efficient.)
m (→‎base 16: aligned a statement.)
Line 1,706:
 
do v=1 for length(h) /*verify the # is divisible by all digs*/
if # // x2d(substr( h, v, 1) ) \==0 then iterate #
end /*v*/ /* [↑] ¬divisible? Then keep looking.*/
leave /*we found a number, so go display it. */