Munchausen numbers

Arturo

<lang rebol>munchausen?: function [n][

   n = sum map split to :string n 'digit [
       d: to :integer digit
       d^d
   ]

]

loop 1..5000 'x [

   if munchausen? x ->
       print x

]</lang>

Output:

1
3435