integer::a(9842)=[(i,i=1,3**9,2)];do1 i=2,1119;print'(i0h $)',a(i-1);a(a(i)::a(i))=0;1 a=pack(a,a>0);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page