Largest number divisible by its digits: Difference between revisions

(Added Quackery.)
Line 1,912:
rot join swap
dup 0 = until ]
drop ] is digits ( n --> [ )
 
[ over drop ] find swap found ] is has ( [ x --> b )
[ false swap rot
witheach
[ over = if
[ dip not
conclude ] ]
drop ] is has ( [ x --> b )
 
[ false swap
Line 1,928 ⟶ 1,923:
[ dip not
conclude ] ]
drop ] is repeats ( [ --> b )
 
9876432 504 / 504 *
1,462

edits