Data commit

Task/Munchausen-numbers/CLU/munchausen-numbers.clu

@@ -0,0 +1,22 @@
+digits = iter (n: int) yields (int)
+    while n>0 do
+        yield(n//10)
+        n := n/10
+    end
+end digits
+
+munchausen = proc (n: int) returns (bool)
+    k: int := 0
+    for d: int in digits(n) do
+        % Note: 0^0 is to be regarded as 0
+        if d~=0 then k := k + d ** d end
+    end
+    return(n = k)
+end munchausen
+
+start_up = proc ()
+    po: stream := stream$primary_output()
+    for i: int in int$from_to(1,5000) do
+        if munchausen(i) then stream$putl(po, int$unparse(i)) end
+    end
+end start_up