Skip to main content
added 32 characters in body
Source Link
Galen Ivanov
  • 21.2k
  • 3
  • 24
  • 61

Racket, 110110 96 bytes

-14 bytes thanks to UltimateHawk!

(define(f n)(let g([a n][bn[b 1])(if(= 10(length(remove-duplicates(string->list(~v(expt an b))))))b(gf an(+ b 1)))))

Try it online!Try it online!

Racket, 110 bytes

(define(f n)(let g([a n][b 1])(if(= 10(length(remove-duplicates(string->list(~v(expt a b))))))b(g a(+ b 1)))))

Try it online!

Racket, 110 96 bytes

-14 bytes thanks to UltimateHawk!

(define(f n[b 1])(if(= 10(length(remove-duplicates(string->list(~v(expt n b))))))b(f n(+ b 1))))

Try it online!

Source Link
Galen Ivanov
  • 21.2k
  • 3
  • 24
  • 61

Racket, 110 bytes

(define(f n)(let g([a n][b 1])(if(= 10(length(remove-duplicates(string->list(~v(expt a b))))))b(g a(+ b 1)))))

Try it online!