Self-describing numbers: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,964: / Line 1,964: @@
 {{trans|Seed7}}
 <lang Phix>constant string aleph = tagset('9','0')&tagset('z','a')&tagset('Z','A')
+                        -- ie "0123456789abc..zABC..Z" (62 characters)
 procedure gen(integer n)
-    for ones=0 to min(2,n-3) do
+    for ones=iff(n>=7?2:0) to min(2,n-3) do
         sequence digits = repeat(0,n),
                  counts = repeat(0,n)