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