anarchy golf - the source code

two kinds of digit by pooq

dim a(9)
for i=1to 1e4n=i
while(n>0)a(mod(n,10))=1
n=int(n/10)wend
for j=0to 9n=n+a(j)
a(j)=0next
if n=2?i
next

Note that non-ascii characters in the above source code will be escaped (such as \x9f).