Self-describing numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,684: / Line 1,684: @@
 Finishes in less than a tenth of a second
 {{trans|Seed7}}
+<lang Phix>constant string aleph = tagset('9','0')&tagset('z','a')&tagset('Z','A')
-<lang Phix>procedure gen(integer n)
-    string aleph = tagset('9','0')&tagset('z','a')&tagset('Z','A')
-    integer ones := 0
+procedure gen(integer n)
-    while ones<=2
+    for ones=0 to min(2,n-3) do
-      and ones<n-2 do
         sequence digits = repeat(0,n),
                  counts = repeat(0,n)
@@ Line 1,711: / Line 1,710: @@
             printf(1,"%s\n",s)
         end if
-        ones += 1
+    end for
-    end while
 end procedure
-for n=1 to 65 do
+for n=1 to length(aleph)+3 do
     gen(n)
 end for</lang>