Self-describing numbers: Difference between revisions
m
→even faster: minor opt & comment
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
m (→even faster: minor opt & comment) |
||
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=iff(n>=7?2:0) to min(2,n-3) do
sequence digits = repeat(0,n),
counts = repeat(0,n)
| |||