partition by parity by *yuko*

real::a(0:7**6)=0;do1 i=0,19;read*,k;1 a(k)=a(k)+1;do2 j=0,1;print'(i0)',((k,i=1,a(k)),k=j,1e5,2);2 print*;end

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

download

return to the top page