Jump to content

Self-describing numbers: Difference between revisions

m
→‎even faster: while -> for
m (→‎Phix: even faster)
m (→‎even faster: while -> for)
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')
procedure gen(integer ones := 0n)
whilefor 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 ⟶ 1,710:
printf(1,"%s\n",s)
end if
end ones += 1for
end while
end procedure
for n=1 to 65length(aleph)+3 do
gen(n)
end for</lang>
7,813

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.