permutation date by pooq

for b=3to 9for c=1to 2for d=3to 9
if(d=b)goto 0
e=3-c
for f=3to 9if(e=2)*(f>3)+(f=b)+(f=d)goto 1
for g=3to 5if(g=b)+(g=d)+(g=f)goto 2
for h=3to 9if(h=b)+(h=d)+(h=f)+(h=g)goto 3
for i=3to 5if(i=b)+(i=d)+(i=f)+(i=g)+(i=h)goto 4
for j=3to 9if(j=b)+(j=d)+(j=f)+(j=g)+(j=h)+(j=i)goto 5
?a,"",b,"",c,"",d,"",e,"",f,"",g,"",h,"",i,"",j
5next
4next
3next
2next
1next
0next
next
next

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

download

return to the top page