Data update

Task/Munchausen-numbers/SETL/munchausen-numbers.setl

@@ -0,0 +1,15 @@
+program munchausen_numbers;
+    loop for n in [1..5000] | munchausen n do
+        print(n);
+    end loop;
+
+    op munchausen(n);
+        m := n;
+        loop while m>0 do
+            d := m mod 10;
+            m div:= 10;
+            sum +:= d ** d;
+        end loop;
+        return sum = n;
+    end op;
+end program;