Return to Answer

added 52 characters in body

Source Link

edited Oct 16, 2018 at 3:38

Red, 81109 bytes

repeat n 8000[s: 0 p: 1 foreach t form pd: 1000 + n[s: s + r: do t - 48]if48 sp: p * r]if all[s = 9[print9 p]]p = 0][print d]]

repeat n 8000[s: 0 foreach t form p: 1000 + n[s: s + do t - 48]if s = 9[print p]]

repeat n 8000[s: 0 p: 1 foreach t form d: 1000 + n[s: s + r: do t - 48 p: p * r]if all[s = 9 p = 0][print d]]

Source Link

created Oct 15, 2018 at 18:26

repeat n 8000[s: 0 foreach t form p: 1000 + n[s: s + do t - 48]if s = 9[print p]]